Напишите программу вычисления следующей алгебраической суммы: 1-1/2+1/3-1/4+1/5-1/6+1/7-1/8+...+(-1) в степени N-1/N

INPUT "vvedite kol-vo chlenov ryada n=",n
r=-1
FOR i=1 TO n
r=-r
s=s+r/i
NEXT
PRINT"summa=";s

автор: кот Бегемот