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