Вводится число с клавиатуры. необходимо вывести его на экран и выяснить четное оно или нет.

Var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 =0
 then writeln('Число ',a,' четное')
 else writeln('Число ',a,' нечетное')
end.

Пример:
a = 28
Число 28 четное