вычислить сумму знака переменного ряда s=1-1/2+1/3-1/4 до тех пора очередные слагаемые не станут по модулю меньше заданной величины с

Только не "знака переменного", а "знакопеременного"var c, ans: real; i: integer;begin     read(c);     i := 1;     ans := 0;     while(1 / i > c) do     begin          if i mod 2 = 0          then              ans := ans - 1 / i          else              ans := ans + 1 / i;          i := i + 1;     end;     writeln(ans);end.