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