回帖：program Project1;
const max=10000;
type arr=array[1..max]of integer;
var a:arr; n:integer;
procedure aqueen(n:integer);
var i,j,k,total:integer;
begin
total:=0;
for i:=1 to n do a:=1;
i:=1;
while true do
begin
if (a