Надо получить А^15?
X := A*A*A; // получаем А^3Y := X*A; // получаем А^4
Z := Y*Y; // получаем А^8
T := Z*Y; // получаем А^12
R := T*X; // получаем А^15