вычислить сумму знака переменного ряда 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.