n皇后问题 procedure try（i:byte);var j:byte;

C.选择排序：procedure sort;var i,j,k:integer;

C.选择排序：procedure sort;var i,j,k:integer;

高精度减法procedure substract（a,b:hp;var c:hp); var i,len:integer;

高精度乘以低精度 procedure multiply（a:hp;b:longint;var c:hp);var i,len:integer;

高精度乘以低精度 procedure multiply（a:hp;b:longint;var c:hp);var i,len:integer;

n皇后问题 procedure try（i:byte);var j:byte;