CHUCAI Pascal

// chuyentin.pro - Lop hoc chuyen tin online

var i,n:longint;
       s:string;
       d:array['A'..'Z'] of longint;
       c:char;

begin
//assign(input,'chucai.inp');reset(input);
//Assign(output,'chucai.out');rewrite(output);
    readln(s);
    for i:=1 to length(s) do
        if ('A'<=s[i]) and (s[i]<='Z') then 
            inc(d[s[i]]);
    for c:='A' to 'Z' do
        if d[c]>0 then writeln(c,' ',d[c]);
end.