Question

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

Answer 1

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