Напишите программу вычисления выражения: S=x3+x5+xn . Используйте функцию для возведения числа в степень function VozvStep(a,k:integer):integer;
var i:integer;
begin
result:=1; for i:=1 to k do
result:=result*a;
vozvstep:=result;
end;

см.объяснение

Объяснение:

program prog;

var  sum,x,n:integer;

function VozvStep(a,k:integer):integer;

var i,res:integer;

begin

res:=1;

for i:=1 to k do res:=res*a;

VozvStep:=res;

end;

begin

Writeln('Enter x,n: ');

readln(x,n);

sum:=VozvStep(x,5)+VozvStep(x,3)+VozvStep(x,n);

writeln('result = ',sum);

end.