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

Program Begin27;

Var
  A, Res: Real;

Begin
  WriteLn('Введите A');
  ReadLn(A);
  Res := Sqr(A);
  WriteLn('A^2 = ', Res);
  Res := Sqr(A) * Sqr(A);
  WriteLn('A^4 = ', Res);
  Res := Res * Sqr(A) * Sqr(A);
  WriteLn('A^8 = ', Res);
  ReadLn;

End.