morgan1991,
Q:> А как посчитать 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 !!!');
основной код напишешь сам т.е. ввод чисел и т.д.