Помогите с прогой кому не лень

[DimoniusX]

http://dump.ru/file/1395926

очень прошу очень надо

[puporev]

Вот тебе решение задачи, заголовок и шапку уж как-то сам напиши.

uses crt;
var x,xn,xk,dx,s,f,e,t:double;
    n:integer;
begin
clrscr;
repeat
write('xn=');readln(xn);
until abs(xn)<1 ;
repeat
write('xk=');readln(xk);
until (abs(xk)<1)and(xk>xn);
dx:=0.1;
e:=0.0001;
x:=xn;
while x<=xk do
  begin
   n:=0;s:=0;t:=x;
   f:=ln((1+x)/(1-x));
   while abs(s-f)>=e do
      begin
        s:=s+2*(t/(2*n+1));
        t:=t*x*x;
        inc(n);
      end;
    writeln('x=',x:9:5,'  s=',s:9:5,'  f=',f:9:5,'  n=',n);
    x:=x+dx;
  end;
readln
end.

[DimoniusX]

спаасибо
заголовок то напишу без проблем и шапку
главное ЭТО