Как выйти по Esc

program proba;
uses Crt;
var
  a,b,c:real;
 
begin
repeat
    write('Ввести число а: '); readln(a);
    write('Ввести число b: '); readln(b);
    write('Ввести число c: '); readln(c);
    .......         { тут что-нибудь делаем с этими переменными;
    .......           сейчас это неважно. }
    readkey;
until ...;
end.

uses
    Crt;
procedure Wait;
begin
    Delay(100);
    if (KeyPressed And (ReadKey = #27))
    then
        Halt;
end;
var
    i: Byte;
begin
    i := 0;
    while (i = 0) do
    begin
        Write(i);
        Wait;
    end;
end.

  {программный цикл}
  repeat
    {какая-то обработка текущей ситуации, не зависящая от кнопок}
    .................
    {получить команду от нажатий на клавиатуре и обработать её}
    case GetCmd of
      cmdUp:
        if WhereY > 1 then
          GoToXY(WhereX, pred(WhereY));
      cmdDown:
        if WhereY < hi(WindMax) + 1 then
          GoToXY(WhereX, succ(WhereY));
      cmdLeft:
        if WhereX > 1 then
          GoToXY(pred(WhereX), WhereY);
      cmdRight:
        if WhereX < lo(WindMax) + 1 then
          GoToXY(succ(WhereX), WhereY);
      cmdExit: break;
    end;
  until False;

write('Ввести число а: '); readln(a);

procedure InputStr(var s: string; MaxLen, Attr: byte);
var
  x0, y0, k: byte;
  x, y: byte;
  ch: char;
  OldCursor: TCursorInfo;
begin
  SaveCursorInfo(OldCursor);
  SetNormalCursor;
  x0 := WhereX;
  x  := x0;
  y0 := WhereY;
  y  := y0;
  s  := '';
  for k := Length(s) + 1 to MaxLen do
    s := s + ' ';
  WriteChar(x0, y0, MaxLen, ' ', Attr);
  k := 1;
  ClearKey;
  repeat
    WriteStr(x0, y0, s, Attr);
    GotoXY(x0 + k - 1, y0);
    repeat
    until KeyPressed;
    ch := ReadKey;
    if ch = #0 then
    begin
      ch := ReadKey;
      case ch of
        kbArrowLeft: if k <> 1 then
            Dec(k);
        kbArrowRight: if k <> MaxLen then
            Inc(k);
        kbDel:
        begin
          Delete(s, k, 1);
          s := s + ' ';
        end;
        kbIns:
        begin
          if s[MaxLen] = ' ' then
          begin
            Delete(s, MaxLen, 1);
            Insert(' ', s, k);
          end;
        end;
      end;
    end
    else
    begin
      if ch > #31 then
      begin
        s[k] := ch;
        if k <> MaxLen then
          Inc(k);
      end
      else
      begin
        if ch = kbBackSpace then
        begin
          if k <> 1 then
          begin
            Dec(k);
            Delete(s, k, 1);
            s := s + ' ';
          end;
        end;
      end;
    end;
  until (ch = kbEnter) or (ch = kbEsc);
  if ch = kbEnter then
    TruncEnd(s)
  else
    s := '';
  RestoreCursorInfo(OldCursor);
end;

program lab;
 
uses
  CRT;
 
const
  ESC = #27;
  ENTER = #13;
  BACKSPACE = #8;
type
  TSetOfChar = set of char;
 
  procedure EnterStr(var s: string; MaxLen: integer; const availableChars: TSetOfChar);
  var
    ch: char;
  begin
    s := '';
    repeat
      repeat
      until KeyPressed;
      ch := ReadKey;
      if ch in availableChars then
      begin
        if Length(s) < MaxLen then
        begin
          Write(ch);
          s := s + ch;
        end;
      end;
      if ch = BACKSPACE then
      begin
        Write(ch);
        ClrEOL;
        Delete(s, length(s), 1);
      end;
      if ch = #0 then
        ReadKey;
    until (ch = ENTER) or (ch = ESC);
    if ch = ESC then
      s := '';
    if ch = ENTER then
      writeln;
  end;
 
  function EnterNumber(const availableDigits: TSetOfChar): byte;
  var
    a: byte;
    s: string;
  begin
    EnterStr(s, 2, availableDigits * ['0'..'9']);
    Val(s, a);
    EnterNumber := a;
  end;
 
var
  a:  byte;
  s:  string;
  i:  integer;
  Chars: set of '0'..'9';
  ch: char;
begin
  writeln(EnterNumber(['0'..'5', 'a']));
end.

program proba;
uses Crt;
var
  a,b,c:real;
 
begin
repeat
    write('Ввести число а: '); readln(a);
    write('Ввести число b: '); readln(b);
    write('Ввести число c: '); readln(c);
    .......         { тут что-нибудь делаем с этими переменными;
    .......           сейчас это неважно. }
    while () do
    begin
      длительные вычисления в цикле
      if KeyPressed then
        if readkey=ESC then
          break;
    end; {while}
until ...;
end.

program proba;
uses Crt;
var
   ch :char;
   str :string;
   n, Code  :integer;
   a :real;
function input :string;
 
begin
  input := '';
  repeat
    ch := readkey;
    if (ch<>#13) and (ch<>#27) then
    begin
       input := input + ch;
       write(ch);
    end
    else
    if (ch=#27) then
       input := ch;
  until (ch=#13) or (ch=#27);
end;
begin
  repeat
     writeln('Нажмите Esc или Enter для выхода из программы.');
     writeln('---------------------------------------------');
     write('Введите целое число : ');
     str := input;
     if (str='') or (str[1]=#27) then
        continue;
     val(str, n, code);
     writeln;
     if code<>0 then
        writeln('Error at position ',code)
     else
        writeln('Вы ввели ',n);
     writeln('---------------------------------------------');
     writeln('Введите дробное число : ');
     str := input;
     if (str='') or (str[1]=#27) then
        continue;
     val(str, a, code);
     writeln;
     if code<>0 then
        writeln('Error at position ',code)
     else
        writeln('Вы ввели ',a:1:5);
    writeln;
{...}
  until (str='') or (str[1]=#27);
end.

program proba;
uses Crt;
var
  a,b,c,aaa,bbb:real;
 
procedure VvodDannyh;
begin
    write('Ввести число а: '); readln(a);
    write('Ввести число b: '); readln(b);
    write('Ввести число c: '); readln(c);
end;
 
procedure Summa; {это может быть и функция - не суть важно}
begin
    VvodDannyh;
    aaa:=a+b+c;
end;
 
procedure Proizvedenie; {это может быть и функция - не суть важно}
begin
    VvodDannyh;
    bbb:=a*b*c;
end;
 
begin
repeat
    Summa;
    Proizvedenie;
    writeln('Сумма Ваших чисел равна: ', aaa:1:5);
    .......         { тут что-нибудь делаем с этими переменными;
    .......           сейчас это неважно. }
until ...;
end.

function VvodDannyh: Boolean;
begin
  VvodDannyh:=False;
  ...
  if { не получили данных } then Exit;
  VvodDannyh:=True;
end;
function Summa: Boolean;
begin
  Summa:=False;
  ...
  if {почему-то не получилось} then Exit;
  Summa:=True;
end;
 
begin
  if VvodDannyh and Summa then { выводим результаты }
  else WriteLn('Cancelled: No data');

type
  ENoData = clacc (Exception);
...
procedure VvodDannyh;
begin
  ...
  raise ENoData.Create('No data entered.');
end;
...
begin
  repeat
    ...
    try
      VvodDannyh;
      ...
    except
      on e: ENoData do
        WriteLn('Cancelled: ',e.Msg);
    end;
  until ...;
end.