Напишите программу на языке Паскаль, которая будет вычислять значения 2 в степени 16, 18, 27 за минимальное возможное число умножений

2¹⁶ = (((2²)²)²)²;
a = 2×2 ⇒ 2²
b = a×a ⇒ 2⁴
b = b×b ⇒ 2⁸
c = b×b ⇒ 2¹⁶ ⇒ вывод

2¹⁸ = 2¹⁶×2² ⇒ c×a ⇒ вывод
2²⁷ = 2¹⁶×2⁸×2²×2 ⇒ c×b×a×2 ⇒ вывод

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
  var a:=2*2;
  var b:=a*a;
  b:=b*b;
  var c:=b*b;
  Writeln(2^16=,c,, 2^18=,a*c,, 2^27=,2*a*b*c)
end.

Результат
2^16=65536, 2^18=262144, 2^27=134217728