program pr7;
uses crt;
 const n=6; m=6;
 a:array[1..n,1..m] 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
i,j,k:integer;
Begin
	For i:=1 to n Do 
	Begin
		For j:=1 to m DO write(a[i,j],' ');
		writeln;
		end;
	For i:=1 to n Do 
	Begin
		For j:=0 to m-1 Do 
		Begin
			If j<3 then Begin
			k:=a[i,j+1];
			a[i,j+1]:=a[i,n-j];
			a[i,m-j]:=k;
		end;
	end;
	end;
writeln;
writeln;
For i:=1 to n Do 
Begin
	For j:=1 to m DO write(a[i,j],' ');
	writeln;
end;
readln;
end.