一个五位数,要使各位上的数字互不相同,有哪些方案?多少种?Free pascal

var t,n,j,i:longint;f:boolean;a:array[0。。9] of boolean;begint:=0;for i:=10000 to 99999 dobeginf:=true;fillchar(a,sizeof(a),false);n:=i;while n0 dobeginif a[n mod 10]=true then begin f:=false;break; end;a[n mod 10]:=true;n:=n div 10;end;if f then begin t:=t+1; writeln(i);end;end;writeln(t);end。