program queen;

const qnum=8;
var boardarray[1..qnum] of integer;
m,narray[2..2qnum] of boolean;
yarray[1..qnum] of boolean;
countinteger;

procedure init;
var jinteger;
begin
count=0;
for j=1 to qnum do y[j]=true;
for j=2 to 2qnum do begin m[j]=true;n[j]=true; end;
end;

procedure print;
var jinteger;
begin
inc(count);
write(count8);
for j=1 to qnum do write(board[j]4);
writeln;
end;

procedure try(iinteger);
var jinteger;
begin
for j=1 to qnum do
if y[j] and m[i+j] and n[i-j+qnum+1] then begin
board[i]=j;y[j]=false;m[i+j]=false;n[i-j+qnum+1]=false;
if i=qnum then print else try(i+1);
y[j]=true;m[i+j]=true;n[i-j+qnum+1]=true;
end;
end;

begin
init;
try(1);
writeln('Program end.');
readln;
end. 
这是一个站上给的程序，有更加简便的方法吗？