Transpos Matrik




var

 n , m : byte;

 a:array[1..9,1..9] of byte;

begin

 for m:=1 to 3 do

  begin

    for n:=1 to 3 do

     begin

      read(a[m,n]);

     end;

  end;

  for m:=1 to 3 do

   begin

     for n:=1 to 2 do

      write(a[n,m],' ');

      writeln(a[3,m]);

   end;

end.