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

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.