Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT - Turbo Pascal

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

Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT..UNTIL. Ряд: Точность: 0.00018

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

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

var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите x<>0 x=');
readln(x);
until x<>0;
e:=0.00018;
n:=1;
t:=1/x;
s:=t/11;
while abs(t)/(n+10)>e do
 begin
  n:=n+1;
  t:=t/x;
  s:=s+t/(n+10);
 end;
writeln('S=',s:0:5);
write('Достигнутая точность=',t/(n+10):0:5);
readln
end.

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

Переменные x, e, t, s объявлены как real и integer соответственно.
Цикл repeat используется для ввода значения x до тех пор, пока оно не будет равно нулю.
Значение переменной e устанавливается равным 0.00018.
Значение переменной n устанавливается равным 1.
Значение переменной t устанавливается равным 1/x.
Значение переменной s устанавливается равным t/11.
Используется цикл while для проверки, пока абсолютное значение t, деленное на (n+10), больше e.
Внутри цикла n увеличивается на 1.
Значение переменной t обновляется, делясь на x.
Значение переменной s обновляется, к нему добавляется значение t, деленное на (n+10).
Цикл while выполняется до тех пор, пока не будет достигнута нужная точность.
Значения s и t выводятся на экран с точностью до 5 знаков после запятой.
Значение переменной e выводится на экран с точностью до 5 знаков после запятой.
Цикл readln ожидает ввода с клавиатуры.