Написать программу в PascalABC. Вычисление A в 8 степени.

Var a, a1:real ;

Begin

Write('a=') ;read(a) ;

A1:=exp(ln(A) *8);

Writeln;

Write('A^8=',Round(a1) );

End.