USES crt;
var
liczba: integer;

BEGIN
clrscr;
writeln('Wprowad liczb:');
readln(liczba);
if (liczba mod 2 = 0) then
 begin
  writeln ('Liczba ',liczba, ' jest parzysta');
 end
  else
  writeln('Liczba ',liczba,' jest nieparzysta');
  readln;
END.