Задача перебор

[APEJl]

помогите пожалуйста решить данную задачу, заранее спасибо!

[ZX Spectrum-128]

http://www.programmersforum.ru/showp...70&postcount=3

[ViktorR]

Я заглянул сюда: http://ru.wikipedia.org/wiki/Алгоритм_Нарайаны
и получил такое решение (для теста):

function NarayanaNextPerm(var a: array of integer; n: integer): integer;
var
  i, k, t, tmp: integer;
begin
  //Шаг 1
  k := n - 2;
  while (k >= 0) and (a[k] >= a[k+1]) do
    k := k - 1;

  if k = -1 then begin
    NarayanaNextPerm := 0;
    Exit;
  end;

  //Шаг 2
  t := n - 1;
  while (t >= k + 1) and (a[k] >= a[t]) do
    t := t - 1;
  tmp := a[k];
  a[k] := a[t];
  a[t] := tmp;

  //Шаг 3
  for i := k + 1 to (n + k) div 2 do begin
    t := n + k - i;
    tmp := a[i];
    a[i] := a[t];
    a[t] := tmp;
  end;
  NarayanaNextPerm := i;
end;

var mas: array[1..4] of integer;
    i, j, n, m : integer;
Begin
   n := 4;
   for i := 1 to n do
      mas[i] := i;
   for m := 1 to 23 do begin
     j := NarayanaNextPerm(mas, n);

     for i := 1 to n do
       write('  ',mas[i]);
     writeln();
   end;
   readln();

End.

Идея состоит в следующем:
1. Считываем данные в массив: Ishod[i]
2. Используем полученную последовательность как начальную (выводим на экран или в файл)
3. Формируем массив целых чисел по возрастанию от 1 до n (нумерация элементов исходного массива).
Vspom[i] := i;
4. В цикле от 1 до n!-1 (оставшееся число перестановок)
5. Применяем к этому массиву перестановку по алгоритму Нарайа́ны.
6. Выводим/формируем в файле массив наших элементов в том порядке, который получен в промежуточном массиве.
writeln(Ishod[Vspom[i]]);
7. Если цикл не завершился то к п.5.


Как-то так, ...