Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / p01

program p01;
uses crt;
var a,b: byte;
begin
 clrscr;
 write('Введите любое натуральное число - ');
 readln(a);
 b:=a mod 2;
 if b>1
  then writeln('Введённое число - четное')
  else writeln('Введённое число - нечетное');
end.