Вычисление выражений с использованием функций - Pascal ABC

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

При заданных значениях N с помощью собственных функций вычислить выражения. Y=(1)*(2)/(3) Цифры в скобках обозначают номер функции в таблице: При вычислении произведений (функции 1, 2, 3, 4, 5, 6, 11, 14, 15), начальные значения произведений равны единице. Нужен сам код. Буду очень сильно благодарен.

Решение задачи: «Вычисление выражений с использованием функций»

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

var n:integer;
function f1:real;
var i:integer;
    p:real;
begin
p:=1;
for i:=1 to n do
p:=p*(1+1/power(i,n-i+1));
f1:=p
end;
function f2:real;
var i:integer;
    p:real;
begin
p:=1;
for i:=1 to n do
p:=p*(1+1/power(i,i));
f2:=p
end;
function f3:real;
var i:integer;
    p:real;
begin
p:=1;
for i:=1 to n do
p:=p*(1+1/power(i,n));
f3:=p
end;
var y:real;
begin
repeat
write('Введите натуральное n>0 n=');
readln(n);
until n>0;
y:=f1*f2/f3;
write('y=',y:0:3)
end.

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

В начале кода объявлены три функции: f1, f2 и f3, которые принимают целочисленный параметр n и возвращают вещественное число.
Внутри каждой функции объявлены три переменные: i, p и real переменная с именем, соответствующим функции (f1, f2 или f3).
В каждой функции происходит вычисление значения p, которое представляет собой произведение чисел от i=1 до n.
В каждой функции используется функция power, которая вычисляет n-ую степень числа i.
Функция f1 вычисляет значение p, используя формулу p = p * (1 + 1/power(i, n-i+1)).
Функция f2 вычисляет значение p, используя формулу p = p * (1 + 1/power(i, i)).
Функция f3 вычисляет значение p, используя формулу p = p * (1 + 1/power(i, n)).
В основной части кода объявлена переменная y типа real.
Затем следует цикл repeat-until, который продолжается до тех пор, пока пользователь не введет натуральное число n больше нуля.
Внутри цикла пользователь вводит значение n, после чего вызываются функции f1, f2 и f3 для вычисления значений p, которые затем используются для вычисления значения y.
Значение y выводится на экран с помощью функции write, с указанием точности до трех знаков после запятой.
Код завершается точкой.