var s: ansistring;    i,j: longint;    a,b: array[1..10000000] of longint;begin    read(s); j:= 1;    s:= Lowercase(s);    for i:= 1 to length(s) do        begin            inc(a[ord(s[i])]);            If a[ord(s[i])] = 1 then                 begin                     b[j]:= ord(s[i]);                    inc(j);                end;        end;    j:= j-1;    write('Cac chu cai co trong xau la: ');    For i:= 1 to j do        write(chr(b[i]),#32);    writeln;    For i:= 1 to j do        writeln( chr(b[i]),' xuat hien ',a[b[i]]);end.