n - это натуральное число, что сразу упрощает задачу, тк не придётся возводить в отрицательную или дробную степень.
Так что в этом случае можно реализовать возведение в степень через цикл.
Надеюсь, я дал вам достаточную подсказку, чтобы вы смогли сами придумать решение.
Пишем свой Pow
program powDemo;
function pow(number: Real; exponent: Integer): Real;
var
i: Integer;
result: Real;
begin
result := 1;
for i := 1 to exponent do
result := result * number;
pow := result;
end;
begin
writeln(pow(2, 3));
end.
Лет 10 на паскале не писал, но всего за 2 запроса в гугл нашёл, как писать циклы и функции.
Алгоритм возведения в степень всем известен.