Вычислить сумму ряда 1 - 1/2 +1/3 - ... +1/999 - 1/1000 справа – налево, в паскале

var x, y: Real;     i: integer; begin      for i := 1000 downto 1 do      begin           if (i mod 2 = 0) then y := -1 * i              else y := i;           writeln('1/', i);          x := x + 1 / y;      end;      writeln('> ', x); end. А вручную это пришлось бы минут 30 даже с калькулятором считать х_х