** Pascal, номер восемь, спасибо огромное :)

Question

На Pascal, номер восемь, спасибо огромное :)

---

Answer 1

Var
 s,x,n:integer;

 function pow(x,n:integer):integer;
var
 i,xk:integer;
begin;
 xk:=x;
  for i:=1 to n-1 do
 x:=x*xk;
 xk:=x;
 pow:=xk;
end;

begin
 readln(x);
 readln(n);
 s:=pow(x,3)+pow(x,5)+pow(x,n);
 writeln(s);
end.