Дано число а. вычислите а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( 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

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.