Дано число а. вычислите а10, используя стандартную функцию sqr (x

Функция sqr(x) служит для возведения аргумента х в квадрат, поэтому представим a¹⁰ в виде максимально возможного набора операций возведения в квадрат.
a¹⁰ = a²·a⁸ = a²·(a⁴)² = a²·[(a²)²]²

var
  a:real;
begin
  Write('a=');
  Read(a);
  Writeln(a,'^10=',sqr(a)*sqr(sqr(sqr(a
end.

Тестовые решения
a=2
2^10=1024

a=3.18
3.18^10=105747.765633159

a=10
10^10=10000000000

a=318.53
318.53^10=1.07523505784868E+25