求一有关组合的函数
求一有关组合的函数，如，0-10个数，从中抽N（例如四）个数进行组合，将所有的组合打印出来！
有代码的给代码，没代码的给思路，没思路的就来点鼓励吧！谢谢了！
[解决办法]
program exam
const n=10;
var a,b,c,d,t:integer;
begin
t:=0;
for a:=1 to n do
for b:=1 to n do
for c:=1 to n do
ford:=1 to n do
if (a-b)*(a-c)*(a-d)*(b-c)*(b-d)*(c-d) <> 0 then
begin
inc(t);
writeln(a:5,b:5,c:5);
end;
readln;
end.
哦也是新手，不知道这样可对？自己调试下。一起学习~！！
[解决办法]
program exam ;
const n=10;
var a,b,c,d,t:integer;
begin
t:=0;
for a:=1 to n do
for b:=1 to n do
for c:=1 to n do
for d:=1 to n do
if (a-b)*(a-c)*(a-d)*(b-c)*(b-d)*(c-d) <> 0 then
begin
inc(t);
writeln(a:5,b:5,c:5,d:5);
end;
writeln( 'total= ',t:5);
readln;
end.
