Дано число n (> 0) найти сумму 1-0.5+0.25-0.125+ паскаль абс работа на использование цикла вайл, фор или рипит буду блогодарен

Var n, i:integer;
    s, k:real;
begin
k:=0.5;
writeln('vvedy n');
readln(n);
for i:=1 to n do
k:=k+(k*0.5);
s:=1-k;
writeln(s:5:5);
end.