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

uses crt;
var n,i,j:integer;
    t,s:real;
begin
clrscr;
write('n=');readln(n);
s:=1;{начальное значение суммы ряда}
for i:=1 to n do{считаем каждый следующий член ряда и сумму}
  begin
   t:=1;
   for j:=1 to i do
   t:=t*0.5;{считаем следующий член=степень 1/2^i}
   if odd(i)then s:=s-t{если индекс нечетный - вычитаем}
   else s:=s+t;{если четный-прибавляем}
 end;
write('s=',s:0:10);
readln
end.