var a: integer;
begin writeln('Введите число'); readln(a); if (a mod 2 = 0) then writeln('Число является четным') else writeln('Число является нечетным');end.
var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.