请问输入几个数字怎样能排列出所有不同的组合

共有756种不同的排列，给出PASCAL程序如下：
var a:string[9];
n,i,j,k,p:byte; s:integer; t:char;
begin
a:='000001122';
assign(output,'d:\123.txt'); rewrite(output);
writeln(a); s:=1;
repeat
i:=8; while a[i]>a[i+1] do dec(i);
j:=9; while a[j] t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); j:=n
while i begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(i); dec(j) end;
writeln(a); inc(s);
until a='221100000';
writeln(' Total=',s);
close(output);
end.
000001122
000001212
000001221
000002112
000002121
000002211
000010122
000010212
000010221
000011022
000011202
000011220
000012012
000012021
000012102
000012120
000012201
000012210
000020112
000020121
000020211
000021012
000021021
000021102
000021120
000021201
000021210
000022011
000022101
000022110
000100122
000100212
000100221
000101022
000101202
000101220
000102012
000102021
000102102
000102120
000102201
000102210
000110022
000110202
000110220
000112002
000112020
000112200
000120012
000120021
000120102
000120120
000120201
000120210
000121002
000121020
000121200
000122001
000122010
000122100
000200112
000200121
000200211
000201012
000201021
000201102
000201120
000201201
000201210
000202011
000202101
000202110
000210012
000210021
000210102
000210120
000210201
000210210
000211002
000211020
000211200
000212001
000212010
000212100
000220011
000220101
000220110
000221001
000221010
000221100
001000122
001000212
001000221
001001022
001001202
001001220
001002012
001002021
001002102
001002120
001002201
001002210
001010022
001010202
001010220
001012002
001012020
001012200
001020012
001020021
001020102
001020120
001020201
001020210
001021002
001021020
001021200
001022001
001022010
001022100
001100022
001100202
001100220
001102002
001102020
001102200
001120002
001120020
001120200
001122000
001200012
001200021
001200102
001200120
001200201
001200210
001201002
001201020
001201200
001202001
001202010
001202100
001210002
001210020
001210200
001212000
001220001
001220010
001220100
001221000
002000112
002000121
002000211
002001012
002001021
002001102
002001120
002001201
002001210
002002011
002002101
002002110
002010012
002010021
002010102
002010120
002010201
002010210
002011002
002011020
002011200
002012001
002012010
002012100
002020011
002020101
002020110
002021001
002021010
002021100
002100012
002100021
002100102
002100120
002100201
002100210
002101002
002101020
002101200
002102001
002102010
002102100
002110002
002110020
002110200
002112000
002120001
002120010
002120100
002121000
002200011
002200101
002200110
002201001
002201010
002201100
002210001
002210010
002210100
002211000
010000122
010000212
010000221
010001022
010001202
010001220
010002012
010002021
010002102
010002120
010002201
010002210
010010022
010010202
010010220
010012002
010012020
010012200
010020012
010020021
010020102
010020120
010020201
010020210
010021002
010021020
010021200
010022001
010022010
010022100
010100022
010100202
010100220
010102002
010102020
010102200
010120002
010120020
010120200
010122000
010200012
010200021
010200102
010200120
010200201
010200210
010201002
010201020
010201200
010202001
010202010
010202100
010210002
010210020
010210200
010212000
010220001
010220010
010220100
010221000
011000022
011000202
011000220
011002002
011002020
011002200
011020002
011020020
011020200
011022000
011200002
011200020
011200200
011202000
011220000
012000012
012000021
012000102
012000120
012000201
012000210
012001002
012001020
012001200
012002001
012002010
012002100
012010002
012010020
012010200
012012000
012020001
012020010
012020100
012021000
012100002
012100020
012100200
012102000
012120000
012200001
012200010
012200100
012201000
012210000
020000112
020000121
020000211
020001012
020001021
020001102
020001120
020001201
020001210
020002011
020002101
020002110
020010012
020010021
020010102
020010120
020010201
020010210
020011002
020011020
020011200
020012001
020012010
020012100
020020011
020020101
020020110
020021001
020021010
020021100
020100012
020100021
020100102
020100120
020100201
020100210
020101002
020101020
020101200
020102001
020102010
020102100
020110002
020110020
020110200
020112000
020120001
020120010
020120100
020121000
020200011
020200101
020200110
020201001
020201010
020201100
020210001
020210010
020210100
020211000
021000012
021000021
021000102
021000120
021000201
021000210
021001002
021001020
021001200
021002001
021002010
021002100
021010002
021010020
021010200
021012000
021020001
021020010
021020100
021021000
021100002
021100020
021100200
021102000
021120000
021200001
021200010
021200100
021201000
021210000
022000011
022000101
022000110
022001001
022001010
022001100
022010001
022010010
022010100
022011000
022100001
022100010
022100100
022101000
022110000
100000122
100000212
100000221
100001022
100001202
100001220
100002012
100002021
100002102
100002120
100002201
100002210
100010022
100010202
100010220
100012002
100012020
100012200
100020012
100020021
100020102
100020120
100020201
100020210
100021002
100021020
100021200
100022001
100022010
100022100
100100022
100100202
100100220
100102002
100102020
100102200
100120002
100120020
100120200
100122000
100200012
100200021
100200102
100200120
100200201
100200210
100201002
100201020
100201200
100202001
100202010
100202100
100210002
100210020
100210200
100212000
100220001
100220010
100220100
100221000
101000022
101000202
101000220
101002002
101002020
101002200
101020002
101020020
101020200
101022000
101200002
101200020
101200200
101202000
101220000
102000012
102000021
102000102
102000120
102000201
102000210
102001002
102001020
102001200
102002001
102002010
102002100
102010002
102010020
102010200
102012000
102020001
102020010
102020100
102021000
102100002
102100020
102100200
102102000
102120000
102200001
102200010
102200100
102201000
102210000
110000022
110000202
110000220
110002002
110002020
110002200
110020002
110020020
110020200
110022000
110200002
110200020
110200200
110202000
110220000
112000002
112000020
112000200
112002000
112020000
112200000
120000012
120000021
120000102
120000120
120000201
120000210
120001002
120001020
120001200
120002001
120002010
120002100
120010002
120010020
120010200
120012000
120020001
120020010
120020100
120021000
120100002
120100020
120100200
120102000
120120000
120200001
120200010
120200100
120201000
120210000
121000002
121000020
121000200
121002000
121020000
121200000
122000001
122000010
122000100
122001000
122010000
122100000
200000112
200000121
200000211
200001012
200001021
200001102
200001120
200001201
200001210
200002011
200002101
200002110
200010012
200010021
200010102
200010120
200010201
200010210
200011002
200011020
200011200
200012001
200012010
200012100
200020011
200020101
200020110
200021001
200021010
200021100
200100012
200100021
200100102
200100120
200100201
200100210
200101002
200101020
200101200
200102001
200102010
200102100
200110002
200110020
200110200
200112000
200120001
200120010
200120100
200121000
200200011
200200101
200200110
200201001
200201010
200201100
200210001
200210010
200210100
200211000
201000012
201000021
201000102
201000120
201000201
201000210
201001002
201001020
201001200
201002001
201002010
201002100
201010002
201010020
201010200
201012000
201020001
201020010
201020100
201021000
201100002
201100020
201100200
201102000
201120000
201200001
201200010
201200100
201201000
201210000
202000011
202000101
202000110
202001001
202001010
202001100
202010001
202010010
202010100
202011000
202100001
202100010
202100100
202101000
202110000
210000012
210000021
210000102
210000120
210000201
210000210
210001002
210001020
210001200
210002001
210002010
210002100
210010002
210010020
210010200
210012000
210020001
210020010
210020100
210021000
210100002
210100020
210100200
210102000
210120000
210200001
210200010
210200100
210201000
210210000
211000002
211000020
211000200
211002000
211020000
211200000
212000001
212000010
212000100
212001000
212010000
212100000
220000011
220000101
220000110
220001001
220001010
220001100
220010001
220010010
220010100
220011000
220100001
220100010
220100100
220101000
220110000
221000001
221000010
221000100
221001000
221010000
221100000
Total=756