Срочно!!!
Напишите программу, которая вводит натуральные числа A и N и вычисляет A^N.
( С использованием цикла (если это вообще применимо)).

function Power(x,y:real):real;
begin
  if x=0 then
    Power:=0
  else
    if x>0 then
      Power:=exp(ln(x)*y)
    else
      Power:=-exp(ln(abs(x))*y);
end;
 
var
 x,y:real;
begin
 readln(x,y);
 writeln(power(x,y));
end.