排列的生成：（1..n）procedure solve（dep:integer);vari:integer;

排列的生成：（1..n）

procedure solve(dep:integer);

var

i:integer;