inc.pas

 {Inc.PAS}
 
 { Пример программы для процедуры Inc }
 
 Var   IntVar : Integer;
   LongintVar : Longint;
 
 Begin
  Inc(IntVar);        { IntVar:=IntVar + 1 }
  Inc(LongintVar, 5); { LongintVar:=LongintVar + 5 }
 End.