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

Vasy

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.