Дано число а. вычислите а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 s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.