Составить программу для вычисления суммы ряда с заданной точностью e, если известна формула - Free Pascal

Формулировка задачи:

Не могу вписать формулу в Паскаль Составить программу для вычисления суммы ряда с заданной точностью e, если известна формула для вычисления общего члена ряда a_i. Входные данные: e - точность, с которой и до которой необходимо вычислять члены ряда. Выходные данные: s - хранит значение суммы ряда, i - хранит количество членов в ряде.

Решение задачи: «Составить программу для вычисления суммы ряда с заданной точностью e, если известна формула»

Листинг программы

var s,si,eps:real;
    i:integer;
begin
  write('eps = ');readln(eps);
  s:=0;si:=1;i:=0;
  repeat
    inc(i);
    si:=si/2;
    s:=s+si;
  until si<eps;
  writeln('s = ',s:0:5,', i = ',i);
  readln
end.

Объяснение кода листинга программы

В начале программы объявляются три переменные: s, si, eps типа real, а также переменная i типа integer.
Пользователю предлагается ввести значение переменной eps с помощью функции readln.
Значение переменной s инициализируется нулем, значение переменной si инициализируется единицей, а переменная i инициализируется нулем.
Затем с помощью цикла repeat-until происходит вычисление суммы ряда с заданной точностью eps.
Внутри цикла значение переменной i увеличивается на единицу, значение переменной si уменьшается в два раза, а значение переменной s увеличивается на значение переменной si.
Цикл выполняется до тех пор, пока значение переменной si не станет меньше значения переменной eps.
В конце программы выводится значение переменной s и значение переменной i с помощью функции writeln.
Для ввода данных от пользователя используется функция readln.