mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 11:29:18 +02:00
12 lines
194 B
ObjectPascal
12 lines
194 B
ObjectPascal
Program Example63;
|
|
|
|
{ Program to demonstrate the SizeOf function. }
|
|
Var
|
|
I : Longint;
|
|
S : String [10];
|
|
|
|
begin
|
|
Writeln (SizeOf(I)); { Prints 4 }
|
|
Writeln (SizeOf(S)); { Prints 11 }
|
|
end.
|