[abcdef]

MP Help: function Pow(a, b: real):real;
__
a^b целыми числами быстрее циклом:
sum:=0; for i:=1 to b do sum:=sum+a;