Паскаль АВС:
Program KrisWoo;
uses crt;
var
a,n:integer;
st:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число а=');
readln(a);
write('Bведите число n=');
readln(n);
if n>=0 then
begin
st:=exp(ln(a)*n);
writeln('Результат: ',a,' в степени ',n,' равно ',st);
end
else
writeln('Число n должно быть неотрицательно!');
end.