Программа для нахождения суммы ряда - Pascal ABC

Нужна помощь. S=1^0+2^2+3^4+4^6...+n^2n-2

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

var s:real;
    i,n:integer;
begin
write('n=');
readln(n);
s:=1;
for i:=2 to n do
s:=s+exp(ln(i)*(2*i-2));
write('S= ',s)
end.

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

Создается переменная s типа real, которая будет использоваться для хранения суммы ряда.
Создаются две переменные i и n типа integer, которые будут использоваться для итерации и контроля количества элементов в ряду соответственно.
Выводится сообщение n= и считывается значение переменной n.
Переменная s инициализируется значением 1.
Запускается цикл for, который будет выполняться от 2 до n (включительно).
Внутри цикла переменная s обновляется путем добавления к ней значения exp(ln(i)(2i-2)). Это вычисление представляет собой сумму ряда.
После завершения цикла выводится сообщение S= и значение переменной s.
Программа завершается.