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

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