Pares e Impares

Este código verifica se o número lido é par ou ímpar.

program par_impar ;
var numero : integer;       //integer porque não se faz divisão de por ex: 10.5 :2

begin
     writeln('Digite um numero.:');
     readln(numero);
     if (numero mod 2=0) then  // se o resto da divisao do numero por 2 for 0 entao o numero é par.
        writeln('Esse numero e par')
     else if (numero mod -2=0) then
          writeln('Esse numero e par')
     else
         writeln('Esse numero é impar');
     readln();
end.