mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 12:11:34 +01:00
24 lines
309 B
ObjectPascal
24 lines
309 B
ObjectPascal
Program Example14;
|
|
|
|
{ Program to demonstrate the Dec function. }
|
|
|
|
Var
|
|
I : Integer;
|
|
L : Longint;
|
|
W : Word;
|
|
B : Byte;
|
|
Si : ShortInt;
|
|
|
|
begin
|
|
I:=1;
|
|
L:=2;
|
|
W:=3;
|
|
B:=4;
|
|
Si:=5;
|
|
Dec (i); { i:=0 }
|
|
Dec (L,2); { L:=0 }
|
|
Dec (W,2); { W:=1 }
|
|
Dec (B,-2); { B:=6 }
|
|
Dec (Si,0); { Si:=5 }
|
|
end.
|