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

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

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