Program Power; uses crt;

var x,n:real;

Function xPow(x:real; n:real):real;
var pow:real;
    k:integer;
Begin
if (X < 0) then Pow:=(-1)*Exp(N*Ln(Abs(X)))
          else if (X > 0) then Pow:=Exp(N*Ln(Abs(X)))
                           else xPow:=0;

K:=Round(N);
if not Odd(K) then Pow:=Abs(Pow);
if (N = 0) then Pow:=1;

xPow:=Pow
end;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Write(' Введите число X: '); Readln(X);
Write(' Введите степень: '); Readln(N);
Write('--------------------------------------------------------------------------------');
Writeln(' Ответ: ',xPow(X,N):8:5);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readkey;
end.