in tất cả trường hợp bài 8 quân hậu - dễ hiểu

uses crt;
Var
  a,x:array[1..8] of integer;
  b:array[2..16] of integer;
  c:array[-7..7] of integer;
  i,n:integer;

procedure print;
var j:integer;
begin
  n:=n+1;
  write('Cach ',n,': ');
  for j:=1 to 8 do
   begin
     write(x[j]);
   end;
  writeln;
  if (n mod 10 = 0) then readln;
end;

procedure try(i:integer);
var j:integer;
 begin
  if i>8 then print else
  for j:=1 to 8 do
   if (a[j]=0) and (b[i+j]=0) and (c[i-j]=0) then
    begin
     x[i]:=j;
     a[j]:=1;
     b[i+j]:=1;
     c[i-j]:=1;
     try(i+1);
     c[i-j]:=0;
     b[i+j]:=0;
     a[j]:=0;
    end;
  end;

begin
clrscr;
try(1);
readln;
end.