Функция, возводящая X в степень n — Pascal(Паскаль)

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;