Mathematisches Problem

[Meflin]

meine lösung:

Delphi-Quellcode:

function massofcombinations(length: integer; strlength: integer; substrlength: integer): integer;
var i, h1, h2, h3: integer;
begin
  h1 := strlength;
  h2 := substrlength;
  for i := 1 to length - 1 do begin
    h3 := h1 * h2;
    h2 := h3;
  end;
  result := h2;
end;

könnte doch stimmen oder?