Написать программу вычисления а10, где а - данное число если получившаяся программа требует более четырех умножений (использование функции sqr тоже считается умножением), то дать более экономное решение.

var a,a2,a4,a8,a10:integer;beginreadln(a);a2:=a*a; // a^2a4:=a2*a2; // a^4a8:=a4*a4; // a^8a10:=a8*a2; // a^10writeln(a10);end.Пример:21024