Pascal ИНФОРМАТИКА .Вычислить, используя функию нахождения знаменателя.

program SumOfFractions;
function denominator(n: integer): integer;
var i: integer;
begin
denominator := 0;
for i := 1 to n do
denominator := denominator + i;
end;
var
n, i: integer;
sum, numerator: real;
begin
write('Enter the number of terms: ');
readln(n);
sum := 0;
numerator := 5;
for i := 1 to n do
begin
sum := sum + numerator/denominator(i);
numerator := numerator + 5;
end;
writeln('Sum of the fractions: ', sum:0:2);
end.
--------
Функция denominator определена в секции function. Она принимает один аргумент n типа integer, и возвращает значение типа integer, которое является суммой первых n натуральных чисел. Эта функция используется в теле программы в цикле for для вычисления суммы дробей.

сорян, за паскаль не шарю :/