рекурсионная возведение в степень, некак неполучается рекурсией Опции

[maksimla]

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

в скобках написано b четное число
Написать программу которая реализировала экономочный число возведение в степень (с клавиатуры вводим натуральные числа n и m (0 < n ≤ 5, 0 < m ≤ 10), а на экране выводим n число в степени m). Нахождения степени должно быть выражено через рекурсированную функцию.

Я написал программу простую с возведением в степень с процедурой и экономичным или экономическим вариантом но без рекурсии

Program ekokel;
var n,m,a:longint;
 procedure kel(n,m:integer);
 begin
 a:=1;
   while m>0 do
    begin
     a:=a*n;
     dec(m);
     end;
 end;
begin
 writeln('введите число n от 0 до 5');
 readln(n);
 writeln('введите число m от 0 до 10');
 readln(m);
  if m mod 2 = 0 then begin
                       kel(n, m div 2);
                       a:=a*a
                      end
                 else kel(n,m);
  writeln(a);
 readln
end.

а с рекурсированной функцией получается неправильно

Program ekokel;
var n,m,a:longint;
 function kel(n,m:integer):integer;
begin
if m>0 then begin n:=n*n; writeln('n= ',n); kel(n,m div 2); end;
end;
begin
 writeln('введите число n от 0 до 5');
 readln(n);
 writeln('введите число m от 0 до 10');
 readln(m);
  if m mod 2 = 0 then begin
                       kel(n, m div 2);
                       a:=a*a
                      end
                 else kel(n,m);
  writeln(a);
 readln
end.

может подскажете как надо делать

[volvo]

Нет тут никакого переполнения:

function kel(n, m: longint): longint;
begin
  if m = 0 then kel := 1
  else
    if m = 1 then kel := n
    else
      kel := sqr(n) * kel(n, m - 2);
end;

, проверил со всеми передаваемыми значениями. Если число МОЖЕТ быть вычислено, и помещается в тип LongInt, выдается правильный результат.