арифметическая прогрессия...

[Васильева Зинаида]

Известны первый член а1 арифметической прогрессии и последний член аn. Найти разность d и сумму Sn первых n членов этой арифметической прогрессии.?
Заранее Вам очень благодарна***

[nervniy]

procedure TForm1.Button1Click(Sender: TObject);
var a,b,n,d,s:real;
begin
n:=StrToInt(Edit1.Text); //вводим кол-во членов прогрессии
b:=StrToInt(Edit3.Text);  //вводим последний член прогрессии
a:=StrToInt(Edit2.Text); //вводим первый член прогрессии
d:=(b-a)/(n-1);  //шаг
s:=(2*a+d*(n-1)*n)/2; //сумма
Edit4.Text:=FloatToStr(d); //вывводим в Edit шаг
Edit5.Text:=FloatToStr(s); //выводим в Edit сумму
end;

[Васильева Зинаида]

спасибки огромное)))))