giup mk với mn!!!!!!

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

const so = ['0'..'9'];
      chu = ['A'..'Z'];
var s : string;
    i, d : integer;
    dkt : array['A'..'Z'] of integer;
begin
    assign(input,'Chuoi.INP'); reset(input);
    assign(output,'Chuoi.OUT'); rewrite(output);
    readln(s);
    d := 0;
    for i := 1 to length(s) do 
        if s[i] in so then inc(d);
    writeln(d);
    
    fillchar(dkt,sizeof(dkt),0);
    for i := 1 to length(s) do 
        if upcase(s[i]) in chu 
            then inc(dkt[upcase(s[i])]);
            
    for i := ord('A') to ord('Z') do 
         if dkt[chr(i)] <> 0 then writeln(dkt[chr(i)],chr(i));
    close(input);close(output);
end .