Pascal/Turbo Pascal - programa en free pascal

{A ver si esto es lo que quieres}

program paresnones;

 uses

    crt;

  var

    numero : integer;

    salir : integer;

    contpares, contnones : integer;

  begin

      clrscr;

      salir := 1;

      while salir <> -999 do

      begin

         write('Entre un numero :  ');

         readln(numero);

         if numero = -999 then

         salir := numero

      else

         begin

            if numero mod 2 = 0 then

            contpares := contpares + 1

          else

            contnones := contnones + 1;

         end;

      end;

      writeln;

      writeln(' Los Numeros Pares Entrados Son : ',contpares);

      writeln(' Los Numeros Nones Entrados Son : ',contnones);

      writeln;

      writeln('     Pulse [Enter]');

      readln;

  end.