PASCAL - Verificar Número Par

 program Paridade;

var

  numero: integer;

begin

  writeln('Introduza um número:');

  readln(numero);

  if numero mod 2 = 0 then

    writeln(numero, ' é par')

  else

    writeln(numero, ' é ímpar');

end.