function pow(x,n:integer):integer; { простая версия}
var i,r:integer;
begin
r:=x;
for i:=1 to n-1 do r:=r*x;
pow:=r;
end;
 
 
Function Pow(A,B:Real):Real;  { Функция возведения в степень (A^B) - ОТРИЦАТ }
Var T:Real;
Begin
     T := Abs(A);
     If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
              Else Pow := Exp(B*Ln(T));
End;
 
 
{------------------------}
 
function multi(a,b:integer):integer; {ещё вариант - через рекурсию}
begin
 if b=1 then multi:=a
        else multi:=a*multi(a,b-1);
end;