паскаль f(x)

[10Rabbit]

помогите записать.Приложение открываеться открываеться и тут же закрываеться(.На сколько я понимаю причина в ((Ln((1+x)/(1-x)))-(arctan(x)))

uses
  SysUtils;
var
a,x,:real;

begin
   readln(x);
   a:=((x*x*x)/12+0.0625*((x*x*x*x)-1))*((Ln((1+x)/(1-x)))-(arctan(x)));
   writeln(a);
   readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

(1+x)/(1-x)-вот это место у вас принимает отрицательное значение и ln от отрицательного числа не берется

[sir.andrey]

Вот формула в правильном виде!!!
((exp(3*ln(x)))/12)+(((exp(4*ln(x)))-1)/16)*(ln((1+x)/(1-x))-2*arctan(x));
P.S. возможно со скобками намутил, проверь!!!
Должно работать!!!

[Namolem]

2ОДИНОЧЕСТВО В СЕТИ
ln((1+x)/(1-x))
(1+x)(1-x)>0
xϵ(-1;1)

[10Rabbit]

Получаеться что ln((1+x)/(1-x) не может быть вычесленно?

[10Rabbit]

вобщем в идеале должно выгледеть примерно так но оно не получаеться.

uses
  SysUtils;
var
a,x,b:real;
i,n: integer;
begin
x:=-0.6;
b:=0.05;
N:=20;
for i:=1  to N do
begin
   a:=((exp(3*ln(x)))/12)+(((exp(4*ln(x)))-1)/16)*(ln((1+x)/(1-x))-2*arctan(x));
   writeln(a);
   x:=x+b;
end;
readln;
end.