Написать программу с использованием циклического оператора FOR - PascalABC.NET

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

y=1^2+2^3+3^4+4^5+...

Решение задачи: «Написать программу с использованием циклического оператора FOR»

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

var i,n,s:integer;
 
function pow(x, n:integer):integer;
var i,mn:integer;
begin
mn:=x;
for i:=1 to n-1 do
x:=x*mn;
pow:=x;
end;
 
begin
s:=0;
write('Сколько членов будет в сумме? ');
readln(n);
for i:=1 to n do
s:=s+pow(i,i+1);
write(s);
end.

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

Объявлены три переменные типа integer: i, n, s.
Определена функция pow(x, n:integer):integer.
Внутри функции pow объявлены две переменные типа integer: i, mn.
В функции pow выполняется цикл for от i=1 до n-1, в котором происходит умножение x на mn.
Значение x сохраняется в переменной pow.
В основном блоке кода выполняется цикл for от i=1 до n, в котором происходит последовательное добавление к сумме s значения функции pow(i,i+1).
После выполнения всех итераций выводится значение переменной s.