Составить программу для вычисления суммы логарифмов - PascalABC.NET

Составьте, пожалуйста, программу для вычисления суммы ln(1)+ln(2)+…ln(N)

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

begin
  var N := ReadLnInteger('N = ');
  var S := 0.0;
  for var i := 1 to N do
    S += ln(i);
  WriteLn('S = ', S);
end.

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

В начале программы объявляется переменная N типа Integer с помощью функции ReadLnInteger, которая считывает целое число из консоли с выводом сообщения N =
Затем объявляется переменная S типа Double со значением 0.0
Далее следует цикл for, который выполняется от i = 1 до i = N
Внутри цикла значение переменной i умножается на число e (экспонента) с помощью функции ln (натуральный логарифм) и прибавляется к переменной S
После выполнения цикла выводится сообщение S = и значение переменной S
Конец программы