abc的字典順序

var n，I，j，tot:longint；

f:數組[0..27]的渴望；

a:數組[0..26]的char

c:char；

開始

fillchar(f，sizeof(f)，0)；

readln(n)；

for i:=n downto 1 do

開始

對於j:=i+1到n do f[I]:= f[I]+f[j]；

Inc(f[I])；

結束；