mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-05 14:32:32 +02:00
24 lines
427 B
ObjectPascal
24 lines
427 B
ObjectPascal
Program Example32;
|
|
|
|
{ Program to demonstrate the Inc function. }
|
|
|
|
Const
|
|
C : Cardinal = 1;
|
|
L : Longint = 1;
|
|
I : Integer = 1;
|
|
W : Word = 1;
|
|
B : Byte = 1;
|
|
SI : ShortInt = 1;
|
|
CH : Char = 'A';
|
|
|
|
begin
|
|
Inc (C); { C:=2 }
|
|
Inc (L,5); { L:=6 }
|
|
Inc (I,-3); { I:=-2 }
|
|
Inc (W,3); { W:=4 }
|
|
Inc (B,100); { B:=101 }
|
|
Inc (SI,-3); { Si:=-2 }
|
|
Inc (CH,1); { ch:='B' }
|
|
end.
|
|
|