program 1;
var eps, x, y, z, j, S, Poh: real;
    x1, x2, x3, x4, x5, x6, x7, x8, x9, x10: real;
    i, n, a: integer;

begin
     writeln ('vvedit'' chyslo, z tochnist''u do jakoho budemo obchysl''uvaty: 0<eps<1');
     readln (eps);
     writeln ('vvedit'' 10 chysel: -1<x<1');
     readln (x1, x2, x3, х4, х5, х6, х7, х8, х9, х10);
     writeln;
     x := x1;
     if (eps>=1) or (eps<=0) then writeln ('Nepravyl''ne znachennya epsylon')
     else
     if (x>=1) or (x<=-1) then writeln ('Nepravyl''ne znacennya x') else
    begin
          y := (1+6*x+x*x) / ((1-x)*(1-x)*(1-x));
          i := 1;
          j := 1;
          z := i*j;
          S := z;

          While z>=eps do
                         begin i := (i+2);
                               n := i*i;
                               j := j*x;
                               z := n*j;
                               S := S+z;
                         end;

          Poh := (abs(y-S)/y)*100;
          writeln (x:1:3,'   ',S:1:3,'   ',y:1:3,'   ',Poh:1:3,'%');
    end;
     writeln;
     writeln;
     readln;
end.