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

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.

автор: Sklyarov Sergej a.k.a. S9