c字典合並

var n，I，j，tot:longint；

f:數組【0..27】的渴望；

a:數組【0..26】的字符；

c:char；

開始

fillchar（f，sizeof（f），0）；

readln（n）；

for i:=n downto 1 do

開始

for j:=i+1到n do f【I】:= f【I】+f【j】；

Inc（f【I】）；

結束；