Program par_impar ;
////By:gil
var
num,i,p :integer;
 Begin
  writeln('Escreva um numero! ');
  read(num);
  
   if (num mod 2=0 ) then
      writeln('O numero ',num,' é par! ')
   else
      writeln('O numero ',num,' é impar!');
 End.