Рекурсия, Рекурсия Опции

[toxa]

Помогите решить задачу а то я чё то торможу :molitva:
Дан одномерный массив (например из 10 чисел). Эти числа надо разбить на группы (например по 5 ) так, чтобы не было одинаковых чисел (например 5 6 7 1 4 входили, а 6 1 4 5 7, 1 4 5 7 6, и т д не входили) количество таких групп я подсчитал по формуле (в данном примере их 252), а вот как их вывести?

[volvo]

Вот так:

const
  n = 4; { количество элементов в массиве }
var
  i, j, k: integer;

const
  data:array[1 .. n] of integer =
    (2, 5, 7, 9); { это сам исходный массив }
var
  a: array[0 .. pred(n)] of integer; { дополнительный массив }

Procedure use;
var
  i : integer;
begin
  writeln;
  for i:=1 to k do
    write(data[ a[i] ]:3)
end;

begin
  k := 3; { группы по К элементов }
  for i:=0 to k do a[i]:=i;
  repeat
    use;
    i:=k;
    while a[i]=n-k+i do dec(i);
    inc(a[i]);
    for j:=i+1 to k do a[j]:=a[j-1]+1;
  until i=0;
end.

Только рекурсия здесь на самом-то деле не нужна... :no: