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.