Presione ESC para salir

program Escape;

uses
 crt;

var
 i: integer;

begin
 writeln('Para salir del programa presione [ESC] cuando el programa diga que tipo de numero ingreso.');
 repeat
  write('Ingrese numero: ');
  readln(i);
   if(i >= 0) then
    writeln('Positivo!')
   else
    writeln('Negativo!');
 until(ord(readkey) = 27);
end.