Mail

В этот день много лет назад...
19 апреля. В 1948 году (76 лет назад) - Москва. I Всесоюзный съезд советских композиторов.

Turbo Pascal Documentation

Процедура Exit

     Функция: Выполняет немедленный выход из текущего блока.
     Описание: Exit
     Примечания: Когда процедура Ехit выполняется в подпрог-
рамме  (процедуре или функции), то происходит возврат управ-
ления из подпрограммы. Когда  эта  процедура  выполняется  в
операторной части программы, она вызывает прекращение работы
программы. Обращение к Ехit аналогично оператору перехода на
оператор  с меткой, адрес которого находится непосредственно
после оператора end.
     Прочее: См. также функцию Наlt.
     Пример:

  uses Crt;
  procedure WasteTime;
  begin
    repeaat
      if KeyPressed then Exit;
      Write('Xx');
    until False;
  end;
  end.