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

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.