Дано действительное число x и натуральное n. Описать функции: - PascalABC.NET

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

Помогите пожалуйста. Преподаватель сказал сделать через function, я не очень понял как это. Не могли бы вы мне помочь!

Дано действительное число x и натуральное n. Описать функции:

Решение задачи: «Дано действительное число x и натуральное n. Описать функции:»

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

function logarifm(x : Real; n : Integer) : Real;
begin
  var S := -1.0;
  for var i := 1 to n do
    begin
      S *= -(x-1)/i;
      Result += S;
    end;
end;
 
begin
  var x := ReadLnReal('x =');
  var n := ReadLnInteger('n =');
  WriteLn(logarifm(x, n) : 10:8, NewLine, Ln(x) : 10:8);
end.

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

Введенные данные: — x (действительное число), — n (натуральное число).
Создана функция logarifm(x: Real; n: Integer): Real.
Внутри функции объявлена переменная S со значением -1.0.
В цикле от 1 до n выполняется:
- Значение S умножается на -(x-1)/i.
- Результат прибавляется к переменной Result.
Выход из функции: результат функции (значение переменной Result) возвращается в основную программу.
В основной программе объявлены переменные x и n.
Значение переменных x и n считывается с помощью функций ReadLnReal и ReadLnInteger соответственно.
С помощью функции WriteLn выводится значение функции logarifm(x, n) с указанием формата вывода 10:8.
С помощью функции Ln выводится значение переменной x с указанием формата вывода 10:8.
Программа завершается.