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

program int;

var a: integer;

begin

writeln('Введите число');

read(a);

if a mod 2 = 0 then

 writeln(a,' - четное число')

else

 writeln(a,' - нечетное число');

end.