Pascal Определение четности числа

[#Azamat]

Программа определяет четность числа.

var x: integer;
begin
  write('Введите x: ');
  readln(x);
  if x mod 2 = 0 then
    writeln('Это четное число')
  else writeln('Это нечетное число');
end.

Автор: Неизвестен