Вычислить сумму ряда 1 — 1/2+1/3 — …

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 даже с калькулятором считать х_х