Возвести число в отрицательную степень - Turbo Pascal

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

Программа возводит число в степень, но она не может возвести число в отрицательную степень, как это сделать? При помощи рекурсии

procedure InputData(var x,y:integer);
begin
  writeln('Это программа, вычисляющая x в степени y');
  writeln('Введите x');
  readln(x);
  writeln('Введите y');
  readln(y);
end;
 
function Solution( x,y:integer):longint;
begin
  if y=0 then Solution:=1
  else Solution:=x*Solution(x,y-1);
end;
 
var x,y:integer;
    z:longint;
begin
 
  InputData(x,y);
  z:=Solution(x,y);
  writeln(x,' в степени ',y,'=',z);
  readln;

Решение задачи: «Возвести число в отрицательную степень»

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

function Solution( x,y:integer):real;
begin
  if y=0 then Solution:=1
  else if y>0 then Solution:=x*Solution(x,y-1)
  else Solution:=1/Solution(x,abs(y))
end;

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

В данном коде реализована функция Solution, которая вычисляет значение числа в отрицательной степени. Входными параметрами функции являются числа x и y.

Если y равно 0, то функция возвращает 1.
Если y больше 0, то функция рекурсивно вызывает саму себя с аргументами x и y-1, умножая результат на x.
Если y меньше 0, то функция возвращает обратное значение от результата вызова функции с аргументами x и abs(y), т.е. вычисляет значение числа в положительной степени. Примечание: Рекурсивный подход использован для вычисления значения числа в отрицательной степени.