program zamena;
const
	n=3;
	k=n*2;
a:array [1..k,1..k] of integer=	((0,2,1,2,5,6),
                             	 (4,5,7,8,1,8),
                             	 (0,6,2,3,3,4),
                          	 (5,6,1,9,7,1),
                          	 (1,2,3,4,5,6),
                          	 (6,5,4,3,2,1));
Var
	buff:integer;
	i:integer;
	j:integer;
Begin
For i:=1 to k Do
		Begin
			For j:=1 to k DO write(a[i,j],' ');
			writeln;
		end;

	For i:=1 to k Do
		Begin
		For j:=n+1 to k Do
			Begin
				If i<=n then
				Begin
					buff:=a[i,j];
					a[i,j]:=a[i+n,j-n];
					a[i+n,j-n]:=buff;
				End;
			End;
		End;
  writeln;
  writeln('RESULT:');
  writeln;
	For i:=1 to k Do
		Begin
			For j:=1 to k DO write(a[i,j],' ');
			writeln;
		end;
  readln;
	
End.