Вычисление суммы ряда (функция или процедура) - Pascal

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

Составьте программу для вычисления суммы ряда .S=2/3 *N + 2/3 * N^2 + 2/3 *N^n. в паскале с помощью функции или процедуры

Решение задачи: «Вычисление суммы ряда (функция или процедура)»

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

function summa(x:real;n:integer):real;
var i:integer;
    y,s:real;
begin
s:=2*x/3;
y:=x;
for i:=2 to n do
 begin
  y:=y*x;
  s:=s+2*y/3;
 end;
summa:=s;
end;
var x:real;
    n:integer;
begin
write('x=');
readln(x);
write('n=');
readln(n);
write(summa(x,n):0:2);
end.

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

Создаётся функция summa, которая принимает два аргумента: x (тип real) и n (тип integer). Функция возвращает значение типа real.
В функции объявляются три переменные: i (тип integer), y (тип real) и s (тип real).
Переменная s инициализируется значением 2*x/3.
Переменная y инициализируется значением x.
Запускается цикл for, который выполняется от 2 до n.
Внутри цикла переменная y инициализируется произведением x и y.
Переменная s инициализируется суммой 2*y/3 и s.
После завершения цикла, значение переменной s сохраняется в переменной summa и возвращается из функции.
Запускается основной блок кода.
Пользователю предлагается ввести значение x и n.
Значения x и n считываются из ввода пользователя и сохраняются в соответствующих переменных.
Вызывается функция summa с аргументами x и n.
Результат вычисления функции (тип real) записывается в переменную result.
Выводится сообщение с результатом вычисления.