Помогите! нужна программа.!! на паскале.

Берете каждого ферзя и проводите полоски вертикально, горизонтально и диагонально. После всех ферзей ищете на поле, где свободно.
Если надо - пишите, сделаю.

Готово!
Написал.
Вот результаты работы:


Число ферзей i = 10
Ферзи расставлены:
. F . .
. .F . .
. .
. .F . .
. .F . .F
F . .F . .
F . .
F . .F

Все клетки под ударом ферзей!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Число ферзей i = 7
Ферзи расставлены:
. .F . .F
. .F .
. .F . .
. .
. .F . .
. .
. .
. .F F . .

Клетки не под ударом ферзей обозначены *
. .F . .F
. .F .
. .F . .
. .* . .
. .F . .
* . .
* . .
. .F F . .

Список таких клеток:
c5 a3 a2

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Число ферзей i = 1
Ферзи расставлены:
. .
. .
. .
. .
. .F . .
. .
. .
. .

Клетки не под ударом ферзей обозначены *
. * * * . * * *
* . * * . * * .
* * . * . * . *
* * * . .* *
. .F . .
* * * . .* *
* * . * . * . *
* . * * . * * .

Список таких клеток:
b8 c8 d8 f8 g8 h8 a7 c7 d7 f7 g7 a6 b6 d6 f6 h6 a5 b5 c5 g5 h5 a3 b3 c3 g3 h3 a2 b2 d2 f2 h2 a1 c1 d1 f1 g1

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Mail портит результат.
Вот так это выглядит: