Определить, является ли данное число а, четным.

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