Hetman Emil

program HETMAN;

uses CRT;

const Rozmiar = 8;

Type
Szachownica = Array [1..Rozmiar] of ShortInt;

var S: Szachownica;
Ilosc : LongInt;

Function AtakujaSie(x1, y1, x2, y2 : ShortInt) : Boolean;
Begin
If (x1=x2) or (y1=y2) or (Abs(x1-x2)=Abs(y1-y2)) then
AtakujaSie:=True
Else AtakujaSie:=False;
End;

Function Wolna(x, y : ShortInt) : Boolean;
var
wiersz: ShortInt;
begin
Wolna:=False;
For wiersz:=1 to x-1 do
if AtakujaSie(wiersz, S[wiersz], x, y) then Exit;
Wolna:=True;
End;

Procedure Wypisz;
var
wiersz, kolumna : ShortInt;
begin
for wiersz:= 1 to Rozmiar do
begin
for kolumna:=1 to Rozmiar do
If kolumna=S[wiersz] then Write('x':2)
Else Write('*':2);
writeln;
end;
Ilosc:=Ilosc+1;
writeln('Ustawienie numer =', Ilosc);
end;

Procedure Ustaw(wiersz :  ShortInt);
var
kolumna : ShortInt;
begin
for kolumna:=1 to Rozmiar do
if Wolna (wiersz, kolumna) then
begin
S[wiersz]:=kolumna;
if wiersz<Rozmiar then Ustaw(wiersz+1)
else Wypisz;
End;
End;
Begin;
Ilosc:=0;
Ustaw(1);
Readln;
End.

begin
AtakujaSie;
Wolna;
Ustaw;
Wypisz;
end.