Написать программу, которая запрашивает с клавиатуры целое число и сообщает «четное» или «нечетное» это число. pascal abc

Var
  n:integer;
begin
  Write('Введите число: ');
  Readln(n);
  if Odd(n) then Writeln('Нечетное')
  else Writeln('Четное');
end.