program arrays(input, output);

type
  foo = array[1..5] of integer;
var
  bar: foo;
  i: integer;
procedure baz(var biz: foo);
begin
  biz[1] := 6;
end;
begin
  bar[1] := 1;
  baz(bar);
  for i := 1 to 5 do 
    writeln(bar[i]);
end.