Программа тест по проверке знаний исторических дат на языке Pascal

 

Program test;

label 1,2,3,4,5,6,7,8,9,10;

var  a , k:integer;

begin

k:=0;

writeln ('Здравствуйте! Эта программа поможет вам определить какие знания у вас по истории ');

 

1:writeln ('1.Когда Москва была освобождена от поляков народным ополчением Минина и Пожарского?');

writeln ('  1. 1612 г. ');

writeln ('  2. 1613г.');

read(a);

If a=1 then k:=k+1;

if (a<1) or (a>2) then

goto 1;

 

2: writeln ('2. Приход к власти в России династии Романовых?');

writeln ('  1. 1613 г.');

writeln ('  2. 1614г.');

read(a);

If a=1 then k:=k+1;

if (a<1) or (a>2) then

goto 2;

 

3:writeln ('3.Андрусовское перемирие между Россией и Польшей. К России отошла Левобережная Украина, Киев и Смоленск?');

writeln ('  1. 1667 г. ');

writeln ('  2. 1668г.');

read(a);

If a=1 then k:=k+1;

if (a<1) or (a>2) then

goto 3;

 

4:writeln ('4.Северная война - боевые действия между Россией и Швецией?');

writeln ('  1. 1700 - 1721 гг.');

writeln ('  2. 17021 -1762гг.');

read(a);

If a=1 then k:=k+1;

if (a<1) or (a>2) then

goto 4;

 

5:writeln ('5.Бородинская битва - сражение между русской армией во главе с Кутузовым и французскими войсками под командованием Наполеона?');

writeln ('  1. 1812 г');

writeln ('  2. 1814г.');

read(a);

If a=1 then k:=k+1;

if (a<1) or (a>2) then

goto 5;

 

Writeln ('количество правильных ответов =', k);

if k=10 then writeln ('Очень хорошо ! Ты знаешь предмет на 5');

if (k<9) and (k>7) then writeln ('Молодец! Ты знаешь предмет на 4');

if (k>4)and (k<6) then writeln ('Стоит еще подтянуть знания! Ты знаешь предмет на 3');

if k<3 then writeln ('Плохо! Ты знаешь предмет на 2');

end.