Begin28. Дано число A. Вычислить A¹⁵, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A², A³, A⁵, A¹⁰, A¹⁵. Вывести все найденные степени числа A.
var a, a2, a3: real;
begin
  write('Введите a ->');
  readln(a);
  a2:=a*a;
  writeln('a^2 = ', a2:6:2);
  a3:=a2*a;
  writeln('a^3 = ', a3:6:2);
  a:=a2*a3;
  writeln('a^5 = ', a:6:2);
  a2:=a*a;
  writeln('a^10 = ', a2:6:2);
  a3:=a*a2;
  writeln('a^15 = ', a3:6:2);
end.