[SCrat.ORS]

Нашёл на просторах

Код:

const
  Coins: array[0..2] of Integer = (1,5,7);

procedure Razmen(Sum, StartingCoinIndex: Integer; s: string);
begin
  if Sum = 0 then
    Writeln(S)
  else
    while (Coins[StartingCoinIndex] <= Sum) and (StartingCoinIndex<=High(Coins)) do begin
      Razmen(Sum - Coins[StartingCoinIndex], StartingCoinIndex, s + IntToStr(Coins[StartingCoinIndex]) + ' ');
      Inc(StartingCoinIndex);
    end;
end;
...
Begin
Razmen(24, 0, '');

Тупо всё варианты тоже перебирает, без учета глубины вложения.