uses crt,graphABC;
label voz,voz1,voz2,voz3;
var a,b:real;
begin
writeln('Первый вопрос');
writeln('4*4 = ?');
readln(a);
clrscr;
begin
if a = 16 then b:=b+1;
if a = 16 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Второй вопрос');
writeln('3*7 = ?');
readln(a);
clrscr;
if a = 21 then b:=b+1;
if a = 21 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Третий вопрос');
writeln('9*7 = ?');
readln(a);
clrscr;
if a = 63 then b:=b+1;
if a = 63 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Четвёртый вопрос');
writeln('8*7 = ?');
readln(a);
clrscr;
if a = 56 then b:=b+1;
if a = 56 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Пятый вопрос');
writeln('3*3 = ?');
readln(a);
clrscr;
if a = 9 then b:=b+1;
if a = 9 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Шестой вопрос');
writeln('6*6 = ?');
readln(a);
clrscr;
if a = 36 then b:=b+1;
if a = 36 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Седьмой вопрос');
writeln('5*5 = ?');
readln(a);
clrscr;
if a = 25 then b:=b+1;
if a = 25 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Восьмой вопрос');
writeln('4*7 = ?');
readln(a);
clrscr;
if a = 28 then b:=b+1;
if a = 28 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Девятый вопрос');
writeln('8*8 = ?');
readln(a);
clrscr;
if a = 64 then b:=b+1;
if a = 64 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
writeln('Нажьмите ENTER');
readln;
clrscr;
writeln('Десятый вопрос');
writeln('9*9 = ?');
readln(a);
clrscr;
if a = 81 then b:=b+1;
if a = 81 then writeln('Ответ = ',a,' првильно')
else writeln('Ответ = ',a,' неправильно');
end;
begin
if (b=9) and (b=10) then goto voz;
end;
voz:
begin
clrscr; writeln('Ваша оценка 5');
end;
begin
if (b=7) and (b=8) then goto voz1;
end;
voz1:
begin
clrscr;writeln('Ваша оценка 4');
end;
begin
if (b=5) and (b=6) then goto voz2;
end;
voz2:
begin
clrscr; writeln('Ваша оценка 3');
end;
begin
if (b<6) then goto voz3;
end;
voz3:
begin
clrscr; writeln('Ваша оценка 2');
end;
end.
у меня не выводит правельный ответ всегда оценка 2
помогите пожалуйсто