const f1='DAYSO.INP';
      f2='DAYSO.OUT';
var H:array[1..500] of integer;
    d:array['0'..'9'] of byte;
    n,i,x,m,max,t:integer;
    s,st:string;
    c:char;
    f:text;
Begin
        assign(f,f1);reset(f);
        read(f,n,x,m);
        for i:=1 to n do read(f,H[i]);
        close(f); max:=H[1];
        for c:='0' to '9' do d[c]:=0;
        for i:=1 to n do
        begin
                str(H[i],st);
                s:=s+st
        end;
        assign(f,f2);rewrite(f);
        for i:=1 to length(s) do
        d[upcase(s[i])]:=d[upcase(s[i])]+1;
        for c:='0' to '9' do
        if d[c]>0 then
        begin
                writeln(f,c,' - ',d[c],' lan');
                val(c,t);
                if d[c]>max then max:=t;
        end;
        writeln(f,'Xuat hien nhieu nhat: ',max);
        for i:=n+1 downto x+1 do H[i]:=H[i-1];
        H[x]:=m; n:=n+1;
        for i:=1 to n do write(f,H[i],' ');
        close(f);
End.