module queens
N, N2, count, poss, place, val, pos, pos1, i, j
arow:20, aleft:20, aright:20, aposs:20
begin
for N:=1 to 16
count := 0
j := 1
for i := 1 to N
j := j * 2
end
val := j - 1
pos := 1
arow[1] := 0
aleft[1] := 0
aright[1] := 0
j := val
N2 := N / 2
for i := 1 to N2
j := j / 2
end
aposs[1] := j
poss := aposs[1]
while pos <> 0
if poss <> 0
place := poss & - poss
poss := poss & ~ place
if pos == 1 and poss == 0 and N & 1 <> 0
count := count * 2
end
if pos <> N
pos1 := pos + 1
aposs[pos] := poss
arow[pos1] := arow[pos] | place
aleft[pos1] := (aleft[pos] | place) * 2
aright[pos1] := (aright[pos] | place) / 2
poss := ~ (arow[pos1] | aleft[pos1] | aright[pos1]) & val
pos := pos1
else
count := count + 1
end
else
pos := pos - 1
poss := aposs[pos]
end
end
if (N & 1) == 0
count := count * 2
end
out := count //вывод результата в порт
end
end