1{$mode FPC} 2unit ub0339; 3interface 4type 5 r2 = packed record 6 Foo : Boolean; 7 Bar : (No, Yes); 8 Baz : 0 .. 3; 9 Qux : -1 .. 0; 10 Fred : 1 .. 7 11 end; 12 procedure PrintSize; 13implementation 14 procedure PrintSize; 15 begin 16 Writeln ('BBB: Size of packed record r2 = ', SizeOf (r2), ' bytes.') 17 end; 18begin end. 19