Возведение в степеь Опции

[Bestya]

Помогите возвести в степень (n-1) через exp(), пожалуйста....

[ClaneOffline]

:> А как посчитать x**3 или корень четвертой степени из x?

A: Hе мешало бы вспомнить школьный курс математики.

  x**n=exp(ln(x)*n))
    Ограничение: x>0
  т.о. надо написать:

    If (x > 0) then y:=exp(ln(x)*n))
               else writeln('Error: x**n -> x <= 0 !!!');