var s:string;
    a:array[1..255] of byte;
    i:byte;
begin
     write('Nhap S '); readln(s);
     fillchar(a,sizeof(a),0);
     for i:=1 to length(s) do inc(a[ord(s[i])]);
     for i:=1 to 255 do if a[i]<>0 then
     writeln(chr(i),' : ',a[i]);
     readln;
end.

uses crt;
var s:string;
    c:string;
    A:array[0..9] of byte;
    i,n:integer;
    o:byte;
begin
    readln(n);
    s:='';
    for i:=1 to n do
    begin
        str(i,c);
        s := s+c;
    end;
    writeln(s);
    for i:=1 to length(s) do 
    begin
        val(s[i],o);
        inc(A[o]);
    end;
    for i:=0 to 9 do 
        writeln('So ',i,' Xuat hien ',A[i],' lan.');
    readln;
end.