программа на Delphi 7

[redone]

Пмогите!
Срочно нужна программка на делфи вот по этому условию:

нужно найти сумму чисел от 1 до n , n вводится с клавиатуры
ответ желательно в Label

[p51x]

Вам во фриланс.

[Google2010]

uses math.....;
...
var s:double;
     i,n:integer;
begin
s:=0;
n:=strtoint(edt1.text);
for i:=1 to n do
s:=s+power(-2,i)/i/(i+1)/(i+2);
lbl1.caption:='s='+floattostr(s);
end;

[delphinewerklin]

Такие вещи обычно делают на паскале, не понимаю зачем здесь дельфи вообще нужно.