Language: 
Русский
English
   {Dec.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the Dec procedure.}
  var
    IntVar: Integer;
    LongintVar: Longint;
  begin
    Dec(IntVar);   { IntVar := IntVar - 1 }
    Dec(LongintVar, 5);  { LongintVar := LongintVar - 5 }
  end.

 
 ::
      
 ::
      
 ::