Mail

В этот день много лет назад...
26 ноября. В 1971 году (53 года назад) - Законом СССР устанавливается минимальный размер заработной платы рабочих и служащих - 70 руб. в месяц, который официально останется неизменным в течение почти 20 лет.

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.