Изменения

Пусть <tex>gen(k, l)</tex> {{---}} процедура генерирования, где <tex>a</tex> {{---}} текущее сочетание, <tex>k</tex> {{---}} следующий элемент в сочетании, <tex>l</tex> {{---}} глубина рекурсии.

a[l] = k;

if l = m then <проверка на требуемый размер объекта>

writeln;

end else for i = k + 1 to n do rec(i, l + 1);

==== Пример работы процедуры генерации ====