program HelloWorld;
var: a,n: integer;
begin
writeln('Чему равно a?');
readln(a);
writeln('Чему равно n?');
readln(n);
writeln('Равно: ', exp(a*LN(n)));
end.
Объяснение:
