Program P68;
 { Paritatea numerelor citite de la tastatură }
var i : integer;
begin
 writeln('Daţi numere întregi:');
 repeat
  readln(i);
   if odd(i) then writeln(i:6, ' - număr impar')
             else writeln(i:6, ' - număr par');
 until i=0;
 readln;
end.