VAR s:STRING;
i,d,j:INTEGER;  
PROCEDURE xuli;
BEGIN          
IF s[1] <>#32 THEN 
BEGIN 
d:=1; j:=2;   
WHILE j<=length(s) DO  
IF s[j] = s[1] THEN 
BEGIN inc(d) ; delete(s,j,1); END 
ELSE inc(j);  
Write(s[1],' = ');
writeln(d);
delete(s,1,1);
END ELSE delete(s,1,1);
END;
BEGIN
Write('Nhap xau : ');
Readln(S);
FOR i:=1 TO length(s) DO
s[i]:=upcase(s[i]);
WHILE s<>'' DO
xuli;
Readln;
END.