var a, n: integer; begin writeln('Ввод (число, степень): '); readln(a, n); writeln(a, '^', n, ' = ', exp(ln(a)*n)); end.