Люди добрые!

[Agira11]

Помогите!!!Нужно решить задачку в паскале! Пожалуйста!!!!

[Mad_Cat]

Function F(x:real):real;
var i:integer;zn:real;res:real;
begin
i:=2;
zn:=x*2;res:=0;
while (i-1)*(i+1)/zn >=0.0001 do begin
res:=res+3/zn;
i:=i+1;
zn:=zn*x*i;
end;
F:=res;
end;
var Xn,dx:real;
begin
Xn:=2;dx:=0.5;
Writeln('+++++++++++++++++++++++++');
Writeln('+    x   +     F(x)     +');
Writeln('+++++++++++++++++++++++++');
while xn<=10+dx/2 do
begin
Writeln('*',xn:6:1,'  +    ',f(xn):6:3,'    +');
xn:=xn+dx;
end;
Writeln('+++++++++++++++++++++++++');
end.