Begin27. Дано число A. Вычислить A⁸, используя вспомогательную переменную и три операции умножения. Для этого последовательно находить A², A⁴, A⁸. Вывести все найденные степени числа A.
var a, buf: real;
begin
  write('Введите a ->');
  readln(a);
  buf:=a*a;
  writeln('a^2 = ', buf:6:2);
  buf:=buf*buf;
  writeln('a^4 = ', buf:6:2);
  buf:=buf*buf;
  writeln('a^8 = ', buf:6:2);
end.