program SizeOfExample;
var
myInt: Integer;
myChar: Char;
myArray: array[1..10] of Integer;
begin
WriteLn('Size of Integer: ', SizeOf(myInt), ' bytes');
WriteLn('Size of Char: ', SizeOf(myChar), ' bytes');
WriteLn('Size of Array[1..10] of Integer: ', SizeOf(myArray), ' bytes');
end.
(*
run:
Size of Integer: 2 bytes
Size of Char: 1 bytes
Size of Array[1..10] of Integer: 20 bytes
*)