真伤我自尊，我写了一刻钟的题被说成菜鸟题。。。。。。
var
  s:array[1..100]of integer;
  a:array[1..100]of integer;
  i,j,k,l,m,n:integer;
procedure serch(k{n},m{a},i{s}:integer);
var j,temp:integer;
begin
  if m=n then begin
                  for j:=1 to n do write(a[j],' ');
                  writeln;
                  exit;
                end;{full}
  if k<>n+1 then begin temp:=s[i+1]; s[i+1]:=k;serch(k+1,m,i+1); s[i+1]:=temp;end;{in}
  if i<>0 then begin
                 temp:=a[m+1];
                 a[m+1]:=s[i];
                 serch(k,m+1,i-1);
                 a[m+1]:=temp;
               end;{out}
end;
begin
  readln(n);
  serch(1,0,0);
end.
var好像多写了。。。。。。可能有错，我看起来没错

呵呵~~我是菜鸟啊~~问的问题当然是菜鸟问题