Mail

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

Turbo Pascal Documentation

Процедура RunError

     Функция: Останавливает выполнение программы и генериру-
ет ошибку времени выполнения.
     Описание: RunError [ (код_ошибки : word ) ]
     Примечания:  Процедура  RunError  аналогична  процедуре
Halt,  но  в дополнение к остановке программы она генерирует
на текущем операторе  ошибку  времени  выполнения.  Парвметр
"код_ошибки"  представляет собой номер ошибки времени выпол-
нения (0 опущен). Если текущий модуль  был  скомпилирован  с
установленной  опцией Debug Information (Отладочная информа-
ция), и вы запускаете программу из среды  интерактивной  от-
ладки,  то  Турбо-Паскаль обрабатывает обращение к RunErrorа
как обычную ошибку времени выполнения.
     Прочее: См. также процедуру Halt.
     Пример:

  {IFDEF Debug}
     if P = nil then RunError(204);
  {EDNIF}