Кто хорошо знает «напишите программу ввчисления выражения: s=x2+x5+xn (цифры это степени) используйте функцию вычисления степени

N:=1;
Sum:=0;

for i:=1 to k do
Begin
Inc(N);
if ((X < 0) and Odd(N)) then Y:=Exp(N*Ln(Abs(X)))
else Y:=Exp(N*Ln(Abs(X)));
Sum:=Sum+Y;
end;