Написать программу, которая проверяет, является ли четным введенное пользователем цело число.

Program zadacha_2;
var
n:integer;
begin
writeln(‘введите целое число’);
readln(n);
write(‘число’,n,’-‘);
if n mod 2=0
  then writeln (‘четное’)
 else writeln(‘нечетное’);
 readln;
end.