var i1,i2,i3,i4,i5,i6,i7,i8,i,s,ans:longint;
a:array[1..8] of boolean;
c:array[0..4] of longint;
b:array[1..8] of longint;
begin
a[1]:=true;
a[2]:=true;
a[3]:=true;
for i1:=1 to 8 do
for i2:=1 to 8 do
for i3:=1 to 8 do
for i4:=1 to 8 do
for i5:=1 to 8 do
for i6:=1 to 8 do
for i7:=1 to 8 do
for i8:=1 to 8 do
begin
s:=0;
if (a[i1])or(a[i8]) then continue;
if (i1=i2)or(i2=i3)or(i3=i4)or(i4=i5)or(i5=i6)or
(i6=i7)or(i7=i8)or(i8=i1) then continue;
writeln(i1,i2,i3,i4,i5,i6,i7,i8);
b[1]:=i1;
b[2]:=i2;
b[3]:=i3;
b[4]:=i4;
b[5]:=i5;
b[6]:=i6;
b[7]:=i7;
b[8]:=i8;
for i:=1 to 8 do
if a[b[i]] then begin inc(s); c[s]:=b[i]; end;
if c[1]+1=c[2] then continue;
if c[2]+1=c[3] then continue;
inc(ans);
end;
writeln(ans);
end.

把数组范围都开大点

这种循环太多的不用递归么。。