在Borland Pascal 7.0下编译通过 
ps:我很懒的，所以没写注释:p 

{$A+,B-,D-,E-,F-,G+,I-,L-,N+,O-,P-,Q-,R-,S-,T-,V-,X-,Y-} 
{$M 16384,0,655360} 
const 
  qn=8; 
var 
  step:integer; 
  a:longint; 
  i,q:array[1..qn]of integer; 
  used1:array[1..qn]of boolean; 
  used2:array[2..qn+qn]of boolean; 
  used3:array[1-qn..qn-1]of boolean; 

procedure out; 
var 
  i:integer; 
begin 
  inc (a); 
  for i:=1 to qn do write(q[i]:3); 
  writeln; 
end; 

begin 
  fillchar (q,sizeof(q),0); 
  fillchar (i,sizeof(i),0); 
  fillchar (used1,sizeof(used1),false); 
  fillchar (used2,sizeof(used2),false); 
  fillchar (used3,sizeof(used3),false); 
  step:=1;a:=0; 

  repeat 
    if step>qn then 
     begin 
       out; 
       dec (step);                 
       used1[q[step]]:=false; 
       used2[q[step]+step]:=false; 
       used3[q[step]-step]:=false; 
       continue; 
     end; 
    inc (i[step]); 
    if i[step]>qn then 
     begin 
       i[step]:=0; 
       dec (step); 
       used1[q[step]]:=false; 
       used2[q[step]+step]:=false; 
       used3[q[step]-step]:=false; 
       continue; 
     end; 
    if used1[i[step]] or used2[i[step]+step] or used3[i[step]-step] then continue; 
    q[step]:=i[step]; 
    used1[q[step]]:=true; 
    used2[q[step]+step]:=true; 
    used3[q[step]-step]:=true; 
    inc (step); 
  until step=0; 

  writeln ('Total ',a,' answers.'); 
end.