Вычислить первые n членов арифметической прогрессии и их сумму

[SegaTT]

Во общем парни выручайте, Вычислить первые n членов арифметической прогрессии и их сумму An=An-1+d , a1,d,n ввести с клавиатуры ,
заранее спасибо + еще каждый член и сумму нужно записать в поле MEMO , заранее спасиба

[mss]

Приступай к работе.
Возникнут конкретные трудности - милости просим.

[SegaTT]

я знаю все куда записать, мне нужен только код решения

[mss]

> мне нужен только код решения

Это и есть основная твоя работа.
Вот и приступай к ней.

[SegaTT]

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BtnrClick(Sender: TObject);
var
i:integer;
s,d:real;
begin
i:=0;
s:=StrToFloat(a1.Text);
d:=StrToFloat(edtd.Text);
while StrToInt(n.Text) > i do
begin
s:=s+d ;
inc(i);
end;
memOtv.Lines.Add('a='+FloatToStr(s) );
end;

end.