Проверьте задачу

[Severe007]

1111111111114.bmp

вот код, где вопросики там не уверен
var
x,Sum,sx:Double;
n,i,j,f,k:Integer;
begin
x:=StrToFloat(edt1.Text);
n:=StrToInt(edt2.Text);
Sum:=0;
for i:=1 to n do
begin
sx:=x*x;
for j:=2 to i do
sx:=sx*x; ?
if odd(i+1) then
k:=-1;
else
k:=1;
f:=1;
for j:=2 to i do
f:=f*(2*j-1); ?
Sum:=Sum+2*sx*k/f;
end;
edt3.Text:=FloatToStr(Sum);


end;