program test (output);

type
  byte = 0..255;
  Arr = array [0..3] of byte;
  Parr = packed array [0..3] of byte;

var
  one : Arr;
  two : Parr;
  i : integer;

begin
  for i := 0 to 3 do one [i] := 3-i;
  pack (one, 0, two);
  for i := 0 to 3 do writeln (two [i])
end.