Question

Написать программу, которая проверяет, правильно ли человек ответил на вопрос «Сколько будет 2*2? Написать программу в Паскале, пожалуйста )

Answer 1

Var a:integer;
begin
writeln('Сколько будет 2*2?');
read(a);
if a=4 then writeln('Правильно') else writeln('Неправильно');
end.

Answer 2

Var n: integer;
begin
  writeln('Сколько будет 2*2?');
  read(n);
  if n = 4 then writeln('Правильно!')
           else writeln('Неправильно!')
end.