Возведение в степень

Дано натуральное число n и вещественное число a. Вычислить an

I. Многократное умножение числа само на себя.
Программа

Uses CRT;
const n = 5;
 
Var
  a   : Integer;
  Mul : Real;
  i   : Integer;
 
begin
 clrscr;
 WriteLn ('Enter a: ');
 ReadLn(a);
 Mul := 1;
 for i := 1 to N do begin 
   Mul := Mul*a; {возводим в степень за счет многократного умножения}
   end;
 WriteLn( 'a^n = ', Mul:5:1);
end.

Результат работы программы
Enter a:
2
a^n = 32.0

II. Используя формулу an = e (n*ln(a))
Программа

Uses CRT;
Var a : Real;
    n : Integer;
begin
  Writeln('Enter a');
  ReadLn(a);
  Writeln('Enter n');
  ReadLn(n);
  Writeln(exp(ln(a)*n):6:2);
  ReadLn;
end.

Результат работы программы
Enter a
10
Enter n
4
10000.00

Ключевые слова: 
степень, возведение в степень