Program BTT;
Uses crt;
Var St: String;
i: longint;
d: array[‘A’..’Z’] of longint;
c: char;
Begin
Clrscr;
Write(‘Nhap St: ‘); Readln(St);
For i:=1 to length(St) do
St[i]:=UPCASE(St[i]);
For c:=’A’ to ‘Z’ do d[c]:=0;
For i:=1 to length(St) do
If St[i] in [‘A’..’Z’] then
inc(d[St[i]]);
For c:=’A’ to ‘Z’ do
If d[c]>0 then
Begin
Write(c,’ : ‘,d[c]);
Writeln;
End;
Readln
End.