Program p35_6;
{--------------------------------------------------------------
 Se da un cuvant.
 Sa se determine numarul de litere diferite ale acestui cuvant.
 --------------------------------------------------------------}
var
    cuv, lit: string;
    n, i, j: byte;
BEGIN
    writeln('Scrie un cuvant !'); readln(cuv);
    writeln;
    
    lit := cuv[1];
    for i := 2 to length(cuv) do begin
        n := length(lit);
        while(n>0)and(cuv[i]>lit[n]) do dec(n);
        if (n=0)or(cuv[i]<lit[n]) then insert(cuv[i], lit, n+1); 
    end;
    n := length(lit); 
    
    writeln('Cuvantul "', cuv, '" are ', n, ' litere diferite:');
    while(n>0) do begin
        write(' ', lit[n]);
        dec(n);
    end;
    readln;
END.