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));
    s:=x+exp(3*ln(x))/3+exp(5*ln(x))/5+exp(7*ln(x))/7;
    write('При x=', x:1:1, ', s=',s:8:8, ', y=', y:8:8,'. ');
    if abs(y-s)<0.01 then
      writeln('Погрешность менее 0.01.')
    else
      writeln('Погрешность более 0.01.');
    x:=x+0.2;
  end;
end.