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
clrscr;
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;
readkey
end.