Mail

В этот день много лет назад...
27 апреля. В 1988 году (36 лет назад) - Мисс Джерти Эдвардз Ланд сдает на права в возрасте 90 лет 229 дней. Это рекорд для Великобритании.

Turbo Pascal Documentation

Процедура Dec

     Функция: Уменьшает значение переменной.
     Описание: Dec(x[ , n])
     Примечания: Параметр x  представляет  собой  переменную
перечислимого  типа, а n - целочисленное выражение. Значение
x уменьшается на 1 (или на n в случае явного задания n).  То
есть Dес(x) соответствует x := x-1, а Dес(x,n) соответствует
x := x-n. Функция Dес порождает оптимизированный код и  осо-
бенно полезна в больших циклах.
     Прочее: См. также функции Inc, Pred.
     Пример:

var
  IntVar     : integer;
  LongIntVar : longint;
begin
   Dec(IntVar);                     { IntVar := IntVar - 1 }
   Dec(LongIntVar(Var, 5);  { LongIntVar := LongIntVar - 5 }
end.