подскажите пожалуйста как сделать, нужно в паскале написать программу, которая бы высчитывала значения функций y=(1/2)*ln{(1+x)/(1-x)} и s=x+(x^3)/3+(x^5)/5+(x^7)/7 при x{0,2;0.8} с шагом dx=0,2. после всех вычислений программа должна сравнить значения у и s, так чтобы разница между ними не превышала 0,01, и если такое значение получилось, то программа должна вывести то значение х при котором погрешность равна 0,01. я так поняла что s это сумма {x^(2n-1)}/2n-1

Program laba4;
Var x,y,n,s:real;
Begin
x:=0.2;
While x<=0.8 do
Begin
y:=1/2*ln((1+x)/(1-x));
x:=x+0.2;
Begin
n:=1;
s:=x+(exp(n*ln(x)))/n;
If abs(y-s)<=0.001 then
begin
n:=n+1;
s:=s+(exp(n*ln(x)))/n;
end;
end;
writeln('x=', x);
end;
end.


Может быть вот так? Или что здесь может быть неправильно?