Дано число A. Вычислить A^15, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A^2, A^3, A^5, A^10, A^15. Вывести все найденные степени числа A — Pascal(Паскаль)

Program Begin28;

var
  A, Temp1, Temp2: Real;

begin
  ReadLn(A);
  Temp1 := Sqr(A);
  WriteLn('A^2 = ', Temp1);
  Temp2 := A * Temp1;
  WriteLn('A^3 = ', Temp2);
  Temp1 := Temp2 * Sqr(A);
  WriteLn('A^5 = ', Temp1);
  Temp2 := Sqr(Temp1);
  WriteLn('A^10 = ', Temp2));
  WriteLn('A^15 = ', Temp1 * Temp2);
  ReadLn;
end.