i 要循环到 n 呀
代码：
program ex6;
var
n,i:longint;
x,j:integer;
s1:string;
sum:longint;
ch:char;
begin
readln(n,x);
ch:=chr(ord('0')+x);
sum:=0;
for i:=1 to n do
begin
str(i,s1);
for j:=1 to length(s1) do
if ch=s1[j] then sum:=sum+1;
end;
writeln(sum);
end.