Надо получить А^15?
X := A*A*A; // получаем А^3Y := X*A; // получаем А^4
Z := Y*Y; // получаем А^8
T := Z*Y; // получаем А^12
R := T*X; // получаем А^15
Надо получить А^15?
X := A*A*A; // получаем А^3
Y := X*A; // получаем А^4
Z := Y*Y; // получаем А^8
T := Z*Y; // получаем А^12
R := T*X; // получаем А^15
(B=A^3)
C:=B*B
(C=B^2=A^(3*2)=A^6)
D:=C*C*B
(D=C^2*B=B^(2*2)*B=B^5=A^(3*5)=A^15)
Все обычные скобки замените на фигурные)