Вопрос Задача по Pascal(подпрограммы)

[Егор134]

Помогите решить задачу по паскалю. Сама задача: "Найти xn+xm+xk c помощью функции возведения в степень. "

 

[AndryBrode]

здесь нету ни одной операции возведения в степень

 

[Владислав711]

function swap(x:real; n:integer):real; var i:integer; st:real; begin st:=1; for i:=1 to n do st:= st*x; swap:=st; end; а в программе s:=s+swap(x,n)+swap(x,n)+swap(x,k);