Дано натуральное N. Вычислить S=1+1/22-1/23+ ... (-1) N/2N (программу написать)

Программа вычисляет сумму знакопеременного ряда, накапливая ее в переменной s.

Член ряда с номером n имеет вид: (-1) ⁿ/2ⁿ.

program sum_nn;

var N: integer;

s: real;

begin

s : = 1;

writeln ('Введите натуральное число N');

readln (N);

for i : integer : = 2 to n do

s : = s + power (-1, i) / power (2, i);

writeln ('S = ', s)

end.