KTKHAC Pascal

// chuyentin.pro - Lop hoc chuyen tin online
var s:string;
    d:array['A'..'Z'] of longint;
       n,i:longint;
       c:char;
       
procedure giai;
var    i,res:longint;
begin
    readln(s);
    for c:='A' to 'Z' do d[c]:=0;
    for i:=1 to length(s) do inc(d[s[i]]);
    res:=0;
    for c:='A' to 'Z' do
           if d[c]>0 then inc(res);
       writeln(res);
end;

begin
//assign(input, 'ktkhac.inp');reset(input);
//assign(output, 'ktkhac.out');rewrite(output);
    readln(N);
    for i:=1 to n do
        giai;
end.