program Project2; {$APPTYPE CONSOLE} var N:integer; begin writeln('Vvedit chyslo N'); readln(N); if N mod 2=0 then writeln(N,' parne') else writeln(N,' ne parne'); readln; end.