program try;
var a:array [1..3,1..3] of longint;
    i,j,ii,x,y,x2,y2,t:longint;
begin
  for i:=1 to 3 do
    for j:=1 to 3 do
      read(a[i,j]);
  randomize;
  writeln('请输入转换次数:');
  readln(cishu);
  for ii:=1 to cishu do
  begin
    repeat
     x:=random(4);
     y:=random(4);
     x2:=random(4);
     y2:=random(4);
    until (x<>x2) and (y<>y2) and (x>0) and (y>0);
    t:=a[x,y];
    a[x,y]:=a[x2,y2];
    a[x2,y2]:=t;
    for i:=1 to 3 do
    begin
      for j:=1 to 3 do
        write(a[i,j],' ');
      writeln;
    end;
  end;
  writeln('End!');
end.