Pascal - рекурсия

[darsinella]

Задание такое: Возвести число А в натуральную степень n за как можно меньшее количество умножений.
Я написала программу, она рабочая, но препод сказал, что можно произвести возведение в степень за МЕНЬШЕЕ количество умножений и не принял. Подскажите, как переделать, пожалуйста
Код Pascal
Program Laba4;
var a,n,i,m:integer;
procedure St(a,n,m:integer);
begin
if n>=1 then
begin
m:=m*a;
St(a,n-1,m);
end
else writeln('a^n= ',m);
end;
Begin
Write('vvedite osnovanie a= ');readln(a);
Write('vvedite stepen n= ');readln(n);
st(a,n,1);
readln;
end.

[Alex_FF]

{ возвращает X в степени N }
function Pow(X, N: Integer): Integer;
begin
     if N = 0 then
     begin
          Pow := 1;
          Exit;
     end;
     if N mod 2 = 0 then Pow := Pow(X * X, N div 2)
     else Pow := X * Pow(X, N - 1);
end;

var
   X, N: Integer;
begin
     ReadLn(X, N);
     WriteLn(Pow(X, N));
     ReadLn;
     ReadLn;
end.

[Alex Cones]

А чем Ln не нравится?

BR = Exp(N*LN(X));

Есть еще Power из модуля Math;

[Alex_FF]

Сообщение от Alex Cones

А чем Ln не нравится?

BR = Exp(N*LN(X));

Есть еще Power из модуля Math;

ну, во-первых, в названии темы написано:

Pascal - рекурсия

а во-вторых, если задают решить такую задачу, то это значит, что нужно решить её самому, а не записать решение из одного слова, воспользовавшись одной готовой функцией из какого-либо модуля...

в-третьих, Ln - Ln'ом, а результат-то вещественный, а какой смысл расширять поле целых чисел до поля действительных, когда результат всё равно лежит в поле целых чисел?

[darsinella]

Спасибо всем большое. Выручили