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

{自然数限定在26以内，这里提供思路，超过26时的方法类似}{以大写的英文字母A～Z代替1～26的自然数}const n=5; r=3;type st=string[n];var b:array[1..n] of boolean; i:integer; k:longint; procedure next(i,j:integer;s:st); {i－第i个选项，j－第i个选择值，s－结果串}var p:integer; t:char;begin if i