[AND_REY]

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

Код:

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;