1q2`13

uses compl;

const e = 0.0001;

var w, z, s, z1, y, p, p1: complex;
    k: integer;

begin
    one(p);
    one(p1);
    zero(w);
    zero(s);
    k := 0;
    input(z);
    if (Moduz(z) <= 1) then
    begin
        writeln('Условие |z| > 1 не выполняется');
        exit
    end;

    Prod(2,z,z1);

    while (Moduz(p) >= e) do
    begin
        inc(k);
        Prod(1/(k+1),z1,p);
        Add(s,p,s);
    end;

    while(Moduz(p1) >= e) do
    begin
        inv(z,y);
        mult(p1,y,p1)
    end;

    Add(s,p1,w);
    output(w);
    writeln
end.