超时！！
程序代码：
program asdf；
var m,n,i,x,y,j:longint；
b:array[1..15] of 0..9；
a:array[0..9] of longint；
begin
read(m,n)；
fillchar(a,sizeof(a),0)；
for i:=m to n do
begin
x:=i；y:=0；
repeat
y:=y+1；
b[y]:=x mod 10；
x:=x div 10；
until x=0；
for j:=1 to y do
begin
case b[j] of
0:a[0]:=a[0]+1；
1:a[1]:=a[1]+1；
2:a[2]:=a[2]+1；
3:a[3]:=a[3]+1；
4:a[4]:=a[4]+1；
5:a[5]:=a[5]+1；
6:a[6]:=a[6]+1；
7:a[7]:=a[7]+1；
8:a[8]:=a[8]+1；
9:a[9]:=a[9]+1；
end；
end；
end；
write(a[0])；
for i:=1 to 9 do write( ,a[i])；
end.
var
m,n,i:longint；
s:string；
a:array[0..9] of longint；
k,j,b:integer；
begin
readln(m,n)；
fillchar(a,sizeof(a),0)；
for i:=m to n do begin
str(i,s)；
b:=length(s)；
for j:=1 to b do begin
k:=ord(s[j])-ord(0)；
a[k]:=a[k]+1；
end；
end；
for i:=0 to 9 do write(a[i], )；
end.