рекурсия умножение и возведение в степень

[ujif]

function p(a,n:integer):integer;
var res:integer;
begin
if n=0 then res:=1
else
res:=sqr(p(a,n-1))*a;
p:=res;
end;
не могу понять почему
при a=2 и n=3 результат = 128
какое действие выполняется первым
sqr или *

[BDA]

А Вы распишите пошагово, как происходит возведение:
p(a, 3) = sqr(p(a, 2)) * a
p(a, 2) = sqr(p(a, 1)) * a
p(a, 1) = sqr(p(a, 0)) * a
p(a, 0) = 1

Подставляем в обратном порядке:
p(a, 1) = 1 * 1 * a = a
p(a, 2) = a * a * a = a^3
p(a, 3) = a^3 * a^3 * a = a^7

Прежде, чем пытаться реализовать быстрый алгоритм возведения в степень, реализуйте обычный "медленный".