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

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.