program m;
var s,x,x1,x2,x3,n: integer;
function st(x,s: integer): integer;
var i:integer;
begin
for i:=1 to s-1 do 
x:=x*s;
end;
begin 
writeln ('выражение s=x^3+x^5+x^n');
writeln ('введите х, введите n');
readln (x,n);
x1:=st(x,3);
x2:=st(x,5);
x3:=st(x,n);
s:=x1+x2+x3;
writeln ('result>>',s)
end.