---

var
  x, x_start, x_end, dx, eps: real;
  sum, term, exact_y: real;
  n: integer;

begin
  x_start := 0.2;
  x_end := 0.6;
  dx := 0.1;
  eps := 1e-5;
  x := x_start;
  writeln('|    x    |  S(x) (Ряд)  | Y(x) (Точное) | Количество членов ряда (n) |');
  
  while x <= x_end + eps do
  begin
    exact_y := Pi / 2 - arctan(x);

    sum := Pi / 2;
    term := -x;
    n := 0;

    while abs(term) >= eps do
    begin
      sum := sum + term;
      n := n + 1;
      term := term * (-x * x) * (2 * n - 1) / (2 * n + 1);
    end;
    
    x := x + dx;
    writeln('| ', x:7:2, ' | ', sum:12:6, ' | ', exact_y:13:6, ' | ', n:26, ' |');
  end;
  readln;
end.