c combinación de diccionarios

var n, I, j, tot: longint;

f: Deseo de matriz [0..27]

a: Carácter de matriz [0..26]; /p>

c:char;

Inicio

fillchar(f,sizeof(f),0);

readln(n);

para i:=n abajo hasta 1

iniciar

para j:=i+1 hasta n hacer f【I】:= f【I】+ f【j】;

Inc(f【I】);

Fin;