Написать на паскале программу .
Задано натуральное число n. Вычислить сумму ряда :
S=1-1/2+1/3-1/4+1/5...+-1/n

var          n,i: integer;     s: real;begins:=0;readln(n);for i:=1 to n do if i mod 2=0 then    s:=s-1/i else    s:=s+1/i;write(s);end.