我那本书上说，Pascal为了避免错误，去除了乘方的功能。
需要x^y的话，可以用exp(y*ln(x))(y∈Z+)。

function power(base:real,exponent:integer):real;
    var i:integer;pow:real;
    begin
        pow:=1;
        for i:=1 to exponent do
            pow:=pow*base;
        return pow;
    end;

用换底公式:
exp(n*ln(x))
求X的N次方