Question

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

Answer 1

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