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

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

Всем доброго времени суток! Нужна помощь в составлении программы. Разработать подпрограмму-функцию для вычисления суммы ряда y. Передача аргумента n в функцию должна осуществляться через аппарат формальных и фактических параметров. Рассчитать значения y для разных значений аргумента n (n=1, 2, 3, …, m), где m - заданное целое число. Буду очень рад вашей помощи.

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

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

uses crt;
function f(n:integer):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+exp(ln(2*i-1)*3);
f:=s;
end;
var n:integer;
begin
clrscr;
repeat
write('Введите n>0 n=');
readln(n);
until n>0;
write('Сумма=',f(n):0:0);
readln
end.

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

В начале кода используется библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с числами с плавающей точкой.
Функция f принимает один аргумент n типа integer и возвращает одно значение типа real.
Внутри функции объявлены две переменные: i типа integer и s типа real.
С помощью цикла for происходит вычисление суммы ряда. В каждой итерации цикла значение переменной i увеличивается на 1, а значение переменной s увеличивается на сумму exp(ln(2i-1)3).
Значение переменной f, которое является результатом вычисления суммы ряда, присваивается переменной s.
В основной части программы с помощью цикла repeat-until запрашивается значение переменной n от пользователя.
После ввода значения переменной n происходит вывод строки Сумма= с последующим вызовом функции f(n) для вычисления суммы ряда.
Последней строкой программы является readln, которая ожидает ввода пользователя и считывает его введенное значение.