dec.pas

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