Mail

В этот день много лет назад...
9 мая. В 1998 году (26 лет назад) - 27-летний парашютист-любитель из баварского города Бургхайм на юге ФРГ, покидая самолет на высоте 1 км (!), ударяется о люк машины, отчего по ошибке открывает запасной парашют. Основной же купол зацепился за хвостовое оперение самолета, и спортсмен некоторое время летел за машиной, пока ему не удалось отцепиться. Бедолага стал падать вниз, как камень, и, запутавшись в стропах, с большой скоростью ударился о землю. К удивлению товарищей и медиков, парашютист остался жив, отделавшись переломами и ушибами. Доставленный в больницу счастливчик заявил, что после выздоровления будет прыгать с парашютом и дальше.

Turbo Pascal Documentation

Процедура Inc

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

var
   IntVar  : intege;
   LongIntVar : longint;
begin
   Inc(IntVar);         { intVar := IntVar + 1 }
   Inc(LongIntVar);     { LongIntVar := LongIntVar + 5 }