procedure p(a : array of integer);
  var i : integer;
  begin
    for i := 0 to 3 do
      writeln(a[i])
  end;

procedure q(var a : array of integer);
  var i : integer;
  begin
    for i := 0 to 3 do
      readln(a[i])
  end;

var
  twoD : array [0..2, 0..3] of integer;
  i : integer;

begin
  for i := 0 to 2 do
    q(twoD[i]);
  for i := 0 to 2 do
    p(twoD[i])
end.