free pascal编程某本书的页码从1开始，小明算了算，总共出现了202个数1，试编程求这本书一共有多少页？

看渣渣是怎么做的
var
a,i:longint;
begin
while a<>202 do
begin
i:=i+1;
if (i<10)and(i=1) then a:=a+1;
if (i>=10)and(i<100) then
begin
if i mod 10=1 then a:=a+1;
if i div 10=1 then a:=a+1;
end;
if i>=100 then
begin
if i mod 10=1 then a:=a+1;
if ((i-i mod 10) div 10)mod 10=1 then a:=a+1;
if i div 100=1 then a:=a+1;
end;
end;
write(i);
end.