program nyitott_tomb;
Procedure tomb_nyomtatas(egyTomb: array of integer);
var
  k: integer;
begin
  for k := 0 to High(egyTomb) do
    Write(egyTomb[k]:3);
  WriteLn
end;
const
  A: array [-1..2] of integer = (0,1,2,3);
  B: array [5..7] of integer = (4,5,6);
begin
  tomb_nyomtatas(A);
  tomb_nyomtatas(B);
  readln;
end.