Напишите программу на паскале.для заданных чисел x и n вычислите z=x^n=x*. x*=n

var
  x,n,x1 : real;
begin
  readln(x,n);
  x1:=abs(x);
  if x<0 then writeln(-1*exp(n*ln(x1)):0:0)
  else writeln(exp(n*ln(x)):0:0);
end.