Дано натуральное число N. Вычислить сумму ряда

var i,n,k,z: integer;
s:real;
begin
write('n=');
read(n);
z:=1;s:=1;k:=1;
repeat
z:=-z;
s:=s+z*1/k*2;
until k<=n;
write('s=',s);
end.

var i,n,k,z: integer;
s:real;
begin
write('n=');
read(n);
z:=1;s:=1;k:=1;
i := 1; // Счетчик 
repeat
z:=-z;
s:=s+z*1/k;
k := k * 2; // Увеличиваем степень
i := i + 1; // Увеличиваем счетчик
until i<=n;
write('s=',s);
end

var i,n,k,z: integer;
s:real;
begin
write('n=');
read(n);
z:=1;s:=1;k:=1;
i := 1; // Счетчик 
repeat
s:=s+z*1/k;
k := k * 2; // Увеличиваем степень
i := i + 1; // Увеличиваем счетчик
z:=-z;   // z еще переместить сюда
until i<=n;
write('s=',s);
end

var n:byte;
s:real;
z,k:integer;
begin
writeln('Enter n');
readln(n);
k:=1;
z:=1;
s:=0;
repeat
      s:=s+z*(1/k*2);
      k:=k*2;
      z:=-z;
until k>power(2,n);
writeln(s);
readln
end.