function power(num,exponent:real; var error:boolean):real;
function psub:real;
var i:integer;
    x:real;
begin
  x:=num;
  if (exponent=int(exponent)) and (trunc(exponent) in [1..100])
  then begin
    for i:=1 to trunc(exponent)-1 do x:=x*num;
    psub:=x end
  else psub:=exp(exponent*ln(num))
end;
begin
 power:=0;
 error:=false;
 if exponent=0 then if num=0 then error:=true else power:=1
 else if num=0 then if exponent>0 then power:=0
                    else error:=true
      else if num>0 then if abs(exponent*ln(num))>88 then error:=true
                         else power:=psub
           else if int(exponent)=exponent then
                     if exponent<0 then
                        power:=1/power(num,abs(exponent),error)
                     else if odd(trunc(exponent)) then
                             power:=-power(abs(num),exponent,error)
                          else power:=power(abs(num),exponent,error)
                else error:=true
end; {power}

function root(exponent,num:real; var error:boolean):real;
begin
 root:=0;
 if num<0 then error:=true
 else if exponent=0 then error:=true
      else root:=power(num,(1/exponent),error);
end;