Вычислить сумму ряда - Pascal ABC (13121)

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

сумма ряда от i=1 до n отношение 1 на (10i-1)*ln(10i-1) решите или направьте на похожее

Решение задачи: «Вычислить сумму ряда»

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

var i, n: integer;
    s: real;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  s := 0;
  for i := 1 to n do s := s + 1 / (10 * i - 1) / ln(10 * i - 1);
  writeln('s = ', s)
end.

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

Переменная i является целочисленной и инициализируется значением 1.
Переменная n также является целочисленной и инициализируется результатом чтения из стандартного ввода.
Переменная s изначально устанавливается в 0.
Затем происходит цикл repeat, который продолжается до тех пор, пока n больше 0.
Внутри цикла выводится сообщение с запросом на ввод значения n.
Затем значение n присваивается переменной s.
Далее следует цикл for, который выполняется от 1 до n.
Внутри цикла значение 1 / (10 * i — 1) вычисляется как десятичная дробь.
Затем вычисляется значение ln(10 * i — 1).
Полученные результаты суммируются в переменной s.
После завершения цикла for выводится сообщение с результатом s.