Código de Pascal/Turbo Pascal - Determinar si un numero es par o impar en Free Pascal

program TestParImpar;

var

  numero:integer;

begin

  write('Introduzca un número: ');

  readln(numero);

  if numero mod 2 = 0 then

    begin

      write(numero, ' es par');

    end

  else

    begin

      write(numero, ' es impar');

    end;

end.