PASCAL编程序找出N个自然数（1，2，3，…，N）中的R个数的组合。

//非递归程序，要自己调试以后才能很好的看懂 //这个程序应该不是很难理解，就没有注释了 program _lixd_arrage_NR; var n,r,i,j:integer; a:array[1..20] of integer; begin write('n,r='); readln(n,r); i:=1;a[1]:=n; repeat if ir then if a[i]>r-i then