Написать программу-цикл(сумма с погрешностью) - Turbo Pascal

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

Совершенно не понимаю как делать цикл, перерыл весь интернет, но как решать до меня дойти не смогло. Прошу помощи в написании программы. Вычислить с погрешностью E=0.1E-4, если сумма где X=0.71

Решение задачи: «Написать программу-цикл(сумма с погрешностью)»

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

const x=0.71;eps=0.1e-4;
var k:integer;s,d:real;
begin
 d:=1;k:=1;s:=0;
 repeat
  d:=-d*x/k;
  s:=s+d;
  inc(k)
 until abs(d)<eps;
 writeln('сумма: ',s:0:5)
end.

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

const x=0.71;eps=0.1e-4; Объявляются две константы: x и eps. Значение константы x равно 0.71, а значение константы eps равно 0.1e-4.
var k:integer;s,d:real; Объявляются три переменные: k, s и d. Переменная k является целым числом, переменная s является вещественным числом, а переменная d также является вещественным числом.
d:=1;k:=1;s:=0; Инициализируются переменные d, k и s. Значение переменной d установлено равным 1, значение переменной k установлено равным 1, а значение переменной s установлено равным 0.
repeat Переменная d пересчитывается с использованием формулы d := -d * x / k. Значение переменной s увеличивается на сумму d. Значение переменной k увеличивается на 1.
inc(k) Увеличивается значение переменной k на единицу.
until abs(d)<eps; Выполняется цикл до тех пор, пока абсолютное значение переменной d не станет меньше значения константы eps.
writeln('сумма: ',s:0:5) Выводится на экран строка сумма:, за которой следует значение переменной s, ограниченные символами :0:5. Это сделано для того, чтобы отобразить 5 десятичных знаков после запятой.