program parne_cislo;
uses crt;
var n:integer;
begin
  writeln('Zadajte lubovolne prirodzene cislo');
  readln(n);
  if n mod 2 = 0 then
    writeln('Cislo ',n,' je parne')
  else
    writeln('Cislo ',n,' je neparne');
  writeln('Dakueme za pouzitie nasho programu :-)');
  readln;
end.