[rus-4-ever]

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

вроде так... надо по математике проверить...