Как вычислить X в степни N или корень N-й степени?

Использование экспоненты для степенных вычислений.

x**n=exp(ln(x)*n))

Ограничение: x>0, т.о. надо написать:

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