чередование знаков цикле Опции

[BoBaH]

такая вот задача:
1+1/2+1/3-1/4-1/5+1/6+1/7-1/8-1/9+....(+)(-)1/1000

как здесь в цикле записать чередование знаков?

[zx1024]

Код

sum := 1;
for i := 2 to 1000 do
 sum := sum + ((i and 2) - 1) / i