Помогите по информатике пожалуйста, геометрическая прогрессия, с подробным решением

 var I,N: integer; 
    S: real; 
begin 
S:=0; 
Readln(N); 
for I:=1 to N do S:=S+1/Power(2,I);                       
Writeln(S) 
end.