Размен монет

const
  купюры : array of Integer = (1,10,50,100);
 
function способыРазмены(всего, сумма, купюра : Integer) : Integer;
begin
  if всего < сумма then
    Exit
  else if всего = сумма then
    Result := 1
  else
    for var i := купюра to купюры.Length-1 do
      Result += способыРазмены(всего, сумма + купюры[i], i);
end;
 
begin
  способыРазмены(ReadInteger, 0, 0).PrintLn;
end.

const
  купюры : array of Integer = (1,10,50,100);
 
function способыРазмены(всего, сумма, купюра : Integer; способ : String) : Integer;
begin
  if всего < сумма then
    Exit
  else if всего = сумма then
    begin
      Result := 1;
      (способ + '=' + всего).Println;
    end
  else
    for var i := купюра to купюры.Length-1 do
      Result += способыРазмены(всего, сумма + купюры[i], i, способ + (способ.Length>0 ? '+' : '') + купюры[i]);
end;
 
begin
  способыРазмены(ReadInteger, 0, 0, '').PrintLn;
end.