Разработать схему алгоритма для вычисления n-ой степени числа a (a в степени n).

Var n, m: integer;
begin
     readln(n, m);
     writeln(exp(ln(n) * m));
end.

Можно было через циклы, но там слишком много условностей (вдруг степень отрицательна?) а так в одно действие уложилось)