最简单的当然是
function power_x_y(x,n:int64):int64
var
y:int64;
begin
y:=1;

for i=1:n do

y*=x;

return y;
end;

I haven't compile it,so it is unclear. See you go for it!