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

Var a,a2,a4,a8,a10:integer;
begin
readln(a);
a2:=a*a; // a^2
a4:=a2*a2; // a^4
a8:=a4*a4; // a^8
a10:=a8*a2; // a^10
writeln(a10);
end.

Пример:
2
1024