procedure sub(s:longint);

var

   i,j:.longint;

begin

  if s>n then begin

   print

  end

    else for i:=1 to n do

      if b then begin

        a[s]:=i;

         b:=false;

        sub(s+1);

         b:=false;

    end;

end;{n 为几位}