Вопрос, который вызвал трудности

Напишите рекурсивную функцию, возводящую число a в степень n. Гарантируется, что все числа "помещаются" в стандартные вещественные (a и ответ) и целые (n) типы.

Входные данные
Вводится 2 числа - a и n (число n может быть отрицательным).

Выходные данные
Необходимо вывести значение an

Примеры
входные данные
2 -1
выходные данные
0.5

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var  a,f: real;  n,i,g: integer;begin  read(a,n);  if n<0 then begin</span>   g:=n;   n:=-n;  end;  f:=1;  for i:=1 to n do   f:=a*f;  if g<0 then write(1/f)</span>  else write(f);  readln;  readlnend.