Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным. — Pascal(Паскаль)

VAR
  n:integer;
BEGIN
  write('Введите  целое число: ');
  readln(n);
  if n mod 2=0 then writeln('Введеное число является четным!')
  else writeln('Введенное число является не четным!');
END.