Слоны, количество расстоновок Опции

[alecsandr]

Всем Привет!
Помогите исправит задачу(
Нужно расставить 8 слонов на шахматной доске так стобы они не били друг друга и вывести на экран (файл) количество таких растоновок.
Я написал, он выводит все эти расстановки на экран.( Но нужно количество. ПОМОГИТЕ ПОЖАЛУЙСТО.
ВОТ КОД ПРОГРАММЫ

uses crt; 
var i:integer; 
      b:array[2..16] of boolean; 
      x:array[1..8] of integer;
procedure Print;
var k:integer;
begin
    for k:=1 to 8 do
    write (x[k]:3);
    writeln;
end;
procedure Tryl(i:integer);
var j:integer;
begin
for j:=1 to 8 do
 if b[i+j]=true then
 begin
 x[i]:=j;
 b[i+j]:=false;
 if i<8 then tryl(i+1)
 else print;
 b[i+j]:=true;
 end;
end;
BEGIN
clrscr;
 for i:=2 to 16 do b[i]:=true;
tryl(1);
readln;
end.

[volvo]

Ну, замени процедуру Print вот на такую:

uses crt;
var i:integer;
      b:array[2..16] of boolean;
      x:array[1..8] of integer;

var count: LongInt;

procedure Print;
begin
  inc(count);
end;

procedure Tryl(i:integer);
var j:integer;
begin
for j:=1 to 8 do
 if b[i+j]=true then
 begin
 x[i]:=j;
 b[i+j]:=false;
 if i<8 then tryl(i+1)
 else print;
 b[i+j]:=true;
 end;
end;
BEGIN
count := 0;
clrscr;
 for i:=2 to 16 do b[i]:=true;
tryl(1);
writeln(count);
readln;
end.

, если уверен что твой алгоритм правилен...