Степень числа. дано целое число а и натуральное (целое неотрицательное) число n. вычислить an (a в степени n). написать в паскале или в c++

Паскаль АВС:

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.

var a,n:integer;
p:real;
begin
writeln('введите число а');readln(a);
writeln('введите число n');readln(n);
p:=exp(ln(a)*n);
writeln('ответ =',p:4:2);
end.