Составьте программу возведения данного натурального числа а в степень п.

Для натуральной степени:
var
  a, s: Longint;
  n, i: byte;
  
begin
  write('a = ');
  readln(a);
  write('n = ');
  readln(n);
  s := 1;//начальное значение степени
  for i := 1 to n do //повторяем n раз
    s := s * a; //предыдущее значение степени умножаем на а
  writeln('Результат: ', s)
end.

var
  a, s: Longint;
  n, i: byte;
  
begin
  write('a = ');
  readln(a);
  write('n = ');
  readln(n);
  s := round(exp(n * ln(a)));//округляем до ближайшего целого
  writeln('Результат: ', s)
end.

var
  n, i, imin, imax: byte;
  max, min: real;
  A: array[1..100] of real;
  
begin
  write('n = ');
  readln(n);
  randomize;
  max := -100;
  min := 100;
  for i := 1 to n do begin
    a[i] := 200 * random - 100; //случайное действительное число (-100, 100)
    write(a[i]:10:3);
    { увеличиваем значение максимального элемента: }
    if a[i] > max then begin 
      max := a[i]; //запоминаем максимум
      imax := i //запоминаем номер максимального элем.
    end; 
    { уменьшаем значение минимального элемента: }
    if a[i] < min then begin 
      min := a[i]; //запоминаем минимум
      imin := i //запоминаем номер минимального элем.
    end; 
  end;
  writeln;
  writeln('Максимальный: a[', imax, '] = ',  max:0:3);
  writeln('Минимальный: a[', imin, '] = ',  min:0:3);
  a[imin] := max; //минимальный элемент заменяем на максимальный
  a[imax] := min; //максимальный элемент заменяем на минимальный
  writeln;
  { Выводим результат: }
  for i := 1 to n do
    write(a[i]:10:3)
end.