Дано натуральное число n. Вычислить: S=1-1/2+1/4-1/8+...+(-1)^n*1/2^n.

Каждое следующее слагаемое получается из предыдущего путем домножения на -1/2, нулевое слагаемое 1.

# python 3.5
n = int(input())
b = 1
s = 0
for _ in range(n + 1):
    s += b
    b *= -1/2
print(s)

Пример ввода:
1000
Пример вывода:
0.6666666666666667

это сумма геометрической прогрессии со знаменателем q=-1/2 и первым членом b1=1

теперь составляем программу:

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(((-1/2)**n-1)/(-1/2-1));
end.