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

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

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