program oken;
uses crt;
var s:string;
i,j,dem,k: longint;
sl: array[1..1000000] of longint;
a: array[1..1000000] of char;
begin
clrscr;
write('Nhap xau: '); readln(s);
k:=0;
for i:=32 to 126 do
begin
dem:=0;
for j:=1 to length(s) do
if chr(i)=s[j] then
dem:=dem+1;
if dem<>0 then
begin
k:=k+1;
a[k]:=chr(i);
sl[k]:=dem;
end;
end;
for i:=1 to k do
writeln(a[i],': ',sl[i]);
readln;
end.