新的 猴子选大王 代码 猴子选大王 功能：设编号为1,2,3,……,n的n(n>0)个猴子按顺时针方向围坐

program monkeys;
var
a:array[1..100] of 0..1;
i,j,l,n:integer;
begin
write('How many monkeys are there?:');
readln(n);
l:=n;
for i:=1 to n do
a[i]:=1;
i:=0;
while n>1 do
begin
j:=3;
while j0 do
begin
i:=i mod 15+1;
j:=j-a[i];
end;
a[i]:=0;
n:=n-1;
end;
for i:=1 to l do
if a[i]=1 then write(i);
end.