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