Решить с массивом

[kris778]

λ = ∑ N * λ
сумма этих произведений складывалась рандомное количество раз от 1 до 99 например;
помогите решить эту формулу в delphi;

[Alitera]

Как то так возможно, если задание правильно поняла.

procedure TForm1.btn1Click(Sender: TObject);
var I, R, L, N: Byte;
Sum : Integer;
a: array [1..99] of byte;
begin
  Randomize;
  Sum := 0;
  R := Random(99);Rand.Text := IntToStr(R);
  N:= StrToInt(NN.Text);
  L:= StrToInt(LL.Text);

  for i:=1 to R do
     begin
     a[i] := N* L;
     L:=a[i];
     end;
  for i:=1 to R do
       begin
       Sum:=Sum+a[i];
       end;
  Summ.Text := IntToStr(Sum);
end;