Написать рекурсивную функцию возведения числа а в степень к (Pascal)

function myPower(a: real; n : integer) : real;

begin

   if n = 0 then result := 1 else if n < 0 then result := 1/myPower(a, -n) else result := myPower(a, n-1)*a;

end;

begin

   writeln(myPower(2.3, 2));

end.