Как определить четность числа на языке Pascal

program CheckEvenNumber;
var
  number: integer;
begin
  writeln('Введите число: ');
  readln(number);

  if number mod 2 = 0 then
    writeln('1')
  else
    writeln('0');
end.

Чтобы определить, является ли число четным на языке программирования Pascal, можно использовать операцию взятия остатка от деления на 2. Если остаток равен 0, то число четное, иначе - нечетное. В данной программе пользователю предлагается ввести число, после чего программа выводит 1, если число четное, и 0, если число нечетное.