Написать рекурсивную функцию вычисления выражения - Pascal ABC

Формулировка задачи:

Собственно вот. Написать рекурсивную функцию, вычисляющую xⁿ (x - вещественное, x ≠ 0) а n - целое) по формуле: Вычислить значение функции при различных x и n.

Решение задачи: «Написать рекурсивную функцию вычисления выражения»

Листинг программы

Program P27;
 
Var x : real;
 
Function Pow(x : real; n : integer) : real;
Begin
      if n=0 then
         Pow:=1.0
      else
         if n > 0 then
            Pow:=x*Pow(x,(n-1))
         else
            Pow:=Pow(1.0/x,-n);
End;
 
Begin
 
     x:=5;
     writeln(Pow(x,-3));
     
End.

Объяснение кода листинга программы

Создаётся программа P27.
Определяется переменная x типа real.
Определяется рекурсивная функция Pow, которая принимает два аргумента: x и n.
В условии if n=0, то возвращается значение 1.0.
Если n>0, то вызывается рекурсивно функция Pow с аргументами x и n-1.
Если n<0, то вызывается рекурсивно функция Pow с аргументами 1.0/x и -n.
Выводится результат вычисления выражения Pow(x,-3).
Программа завершается.