Вычисление суммы членов сходящегося числового ряда с заданной точностью

Program SummaRyada;
 const Alfa =0.1;
 var   i,N:integer;
       F,Sum,X,Y:real;
 begin
  Sum:=0; N:=1;
  repeat
   begin
     X:=1; 
     Y:=1;
     for i:=1 to N do
     X:=X*(-1);
     Y:=Y*2;
   end;
   F:=(X*N)/Y;
   Sum:=Sum+F;
   N:=N+1;
  until
  Abs(F)<=Alfa;
    Writeln('Сумма Sum: ',Sum:15:8);
    Writeln('Количество итераций N:',N);
    Writeln('Последнее значение функции F: ',F:15:8);
    Readln;
 end.

const
  Alfa = 0.1;
 
var
  N, Y: integer;
  F, Sum: real;
 
begin
  Sum := 0; N := 0;
  Y := 1; //начальное значение степеня двойки
  repeat
    N := N + 1;
    Y := -Y * 2; //удваиваем степень двойки (с противоположным знаком)
    F := N / Y; //находим N-й элемент ряда
    Sum := Sum + F; //сумма
  until Abs(F) <= Alfa;
  Writeln('Сумма Sum: ', Sum:15:8);
  Writeln('Количество итераций N: ', N);
  Writeln('Последнее значение функции F: ', F:15:8);
  Readln
end.

Program SummaRyada2;
 const Alfa =0.1;
 var   i,N:integer;
       F,Sum,X,Y:real;
 begin
  Sum:=0; N:=1;
  while Abs(F)>=Alfa do;
  begin
    begin
     X:=1; 
     Y:=1;
     for i:=1 to N do
     X:=X*(-1);
     Y:=Y*2;
    end;
   F:=(X*N)/Y;
   Sum:=Sum+F;
  end;
    Writeln('Сумма Sum: ',Sum:15:8);
    Writeln('Количество итераций N:',N);
    Writeln('Последнее значение функции F: ',F:15:8);
    Readln;
 end.

const
  Alfa = 0.1;
 
var
  i, N, Y: integer;
  F, Sum: real;
 
begin
  N := 0; //начальный номер
  Y := 1; //нулевой степень двойки (2 в нулевой степени = 1)
  Sum := 0; //начальная сумма
  F := 1; //начальный член последовательности (любое число > Alfa, чтобы можно было войти в цикл)
  while Abs(F) > Alfa do begin
    N := N + 1;
    Y := -Y * 2; //число в знаменателе умножаем на 2, сменив его знак на противоположный
    F := N / Y; //номер N делим на знаменатель Y (степень двойки)
    Sum := Sum + F; //сумма
  end;
  Writeln('Сумма Sum: ', Sum:15:8);
  Writeln('Количество итераций N: ', N);
  Writeln('Последнее значение функции F: ', F:15:8);
  Readln
end.