[AND_REY]

Вроде так, мальчик

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button1Click(Sender: TObject); Var  A: Array of Integer;  d, n, Suma, i: Integer; begin  Suma:= 0;  d:= StrToInt(Edit2.Text);  n:= StrToInt(Edit3.Text);  SetLength(A, n);  A[0]:= StrToInt(Edit1.Text);  Memo1.Lines.Clear;  Memo1.Lines.Add('1) ' + IntToStr(A[0]));  For i:= 1 To n - 1 Do   begin    A[i]:= A[i-1] + d;    Suma:= Suma + A[i];    Memo1.Lines.Add(IntToStr(i+1) + ') ' + IntToStr(A[i]));   end;  Memo1.Lines.Add('Сума = ' + IntToStr(Suma + A[0])); end;