1package Pack5 is 2 3 type Small is range -32 .. 31; 4 5 type Arr is array (Integer range <>) of Small; 6 pragma Pack (Arr); 7 8 type Rec is record 9 Y: Arr (1 .. 10); 10 end record; 11 pragma Pack (Rec); 12 13end Pack5; 14