uses crt;
const sk:array[1..26]of char=('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var e1:integer;
    tk:longint;
procedure t(s:string;x,l:integer);
var a:char;
    a1:integer;
begin
  if x=e1 then begin
  inc(tk);
  writeln(tk,':',s);
    end else begin
    for a1:=1 to 26 do begin
    if (pos(sk[a1],s)=0)and(a1>l) then begin
      t(s+sk[a1],x+1,a1);
      end;
    end;
  end;
end;
begin
clrscr;
  tk:=0;
  write('Input 0<a number<27:');
  readln(e1);
  if (e1<27)and(e1>0) then begin
  t('',0,0);
  end else writeln('Fuck your all family!':3);
  readln;
end.

虾米意西

虾米意西？实在看不懂问题要干嘛〉〉〉〉〉〉

二楼的，串窑子串多了是吧？！

二楼的，串窑子串多了是吧？！
改为：
    一楼的，串窑子串多了是吧？！
    （还fuck来fuck去的）；
{不该不行啊，都骂到自己啦！！！！！}

Wang--Xiang自己承认了？
真有自知之明啊！

警告:
这是pascal讨论的地方,不是吵架的地方,现提出警告,如继续吵,我只能删贴了

二楼串窑子的Wang--Xiang自己承认了？神奇

最后通牒,这里不允许吵架