program solanxuathien;
uses crt;
var st:string;
function dem(c:char; s:string):byte;
var l:byte;
begin
dem:=0;
for l:=1 to length(s) do
if s[l]=c then inc(dem);
end;
procedure xuly;
var i,n:byte;
kt:char;
begin
write('Nhap xau: '); readln(st);
i:=1; n:=length(st);
while n>0 do
begin
kt:=st[1];
writeln(st[i],': ',dem(st[i],st));
while pos(kt,st)<>0 do
begin
delete(st,pos(kt,st),1);
n:=n-1;
end;
end;
readln
end;
BEGIN
clrscr;
xuly;
end.
