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.