[Vitek 07]

lxa85, спасибо за помощь.

исправил на это

читать дальше »

Код:

...
var i,n: integer;
s: real;
begin
n:=StrToInt(Edit1.Text);
s:=0;
 for i := 1 to n do
begin
 s:=s+1/(sqr(2*i+1));
end;
Label2.Caption:=('Значение выражения = ')+FloatTostr(s);
end;
...