问题这样的:围绕着山顶有10个洞，一只兔子和一只狐狸各住一个洞，狐狸总想吃掉兔子。一天兔子对狐狸说，你想吃我有一个条件，你先把洞编号１到10。你从第10号洞出发，先到第１号洞找我，第二次隔一个洞找我，第三次隔两个洞找我，以后依次类推，次数不限。若能找到我，你就可以饱餐一顿，在没找到我之前不能停止。狐狸一想只有10个洞，寻找的次数又不限，哪有找不到的道理，就答应了条件。结果就是没找着。
　　利用单链环编程，假定狐狸找了１０００次，兔子躲在哪个洞里才安全。

我这样编:program tuzi;
const n=10;
var
   i,j:integer;
   a:array[1..n] of boolean;
begin
   for i:=1 to n do a[i]:=true;
   j:=0;
   for i:=1 to 1000 do
    begin
       if (i mod 10=0) then a[10]:=false
           else a[i mod n]:=false;
       j:=j+1;
       i:=j+i;
    end;
   for i:=1 to 10 do 
        if a[i] then write(i:3);
   readln;
end.
可是有问题啊