{$apptype console}
 const n=3;
 var i,j,k,y_v,y_g:longint;
 a:array[0..n+1,0..n+1] of integer;
 f:text;
 procedure pr1;
 begin
        a[y_v,y_g]:=1;
        y_g:=y_g+1;
        y_v:=1;
 end;
 procedure pr2;
 begin
      for i:=1 to n do a[i,y_g]:=0;
      y_g:=y_g-1;
      for i:=1 to n do
                    if a[i,y_g]=1 then y_v:=i;
                    a[y_v,y_g]:=0;
                    y_v:=y_v+1; end;
 procedure pr3;
 begin
      y_g:=y_g-1;
      for i:=1 to n do
                    if a[i,y_g]=1 then y_v:=i;
 end;

 procedure pr4;
 begin
 k:=k+1;
      for i:=1 to n do begin
      for j:=1 to n do write(a[i,j]);
      writeln;
      END;
      WRiTELN;
 end;

 function pr:boolean;
 begin
 pr:=true;
 for i:=1 to n do
               if (a[y_v,i]=1) then pr:=false;
 end;



 begin

 k:=0;
 writeln('n=',n);
 for i:=1 to n do
 for j:=1 to n do
 a[i,j]:=0;
 y_v:=1;
 y_g:=1;
 pr1;
 while y_g<>0 do begin
                while (not(pr)) and (y_v<n+1) do y_v:=y_v+1;
                if y_v<n+1 then pr1 else pr2;
                if y_g=n+1 then begin pr4;pr3; end;
 end;
 writeln('k=',k);
 readln;
 end.