全排列

vara,d:array[1..4] of integer;v:array[1..4] of boolean;procedure init;var i:integer;beginfor i:=1 to 4 dobegind[1]:=i;v[i]:=false;end;end;procedure debug;var i:integer;beginfor i:=1 to 4 dobeginwrite(a[i]:5);end;writeln;end;procedure execute(i:integer);var j:integer;beginif i>=5 thenbegindebug;exit;endelsebeginfor j:=1 to 4 dobeginif v[j]=false thenbegina[i]:=j;v[j]:=true;execute(i+1);v[j]:=false;end;end;end;end;{main}begininit;execute(1);readln;end.