Составить программу проверки на четность введенного с клавиатуры числа

program test;
var number: integer;

begin
  write('Enter the number: ');
  readln(number);
  if (number mod 2 = 0) then
    writeln('Chislo ', number, ' chetnoe')
  else
    writeln('Chislo ', number, ' nechetnoe');
readln();
end.