Orden del diccionario de abc

f: deseo de matriz [0..27];

a: char para matriz [0..26] p>

c: char;

Inicio

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

readln(n);

p>

para i：=n hasta 1 hacer

Inicio

Para j：=i 1 hasta n hacer f[I]：= f[I] f[j ];

Inc(f[I]);

Fin;