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

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

Зажми кнопку вкл и кнопку которая делает звук тише
если не получается то нажми кнопку вкл и нажми на экран и держи
если опять не получается то нажми кнопку вкл и на кнопку "Домой"(вернутся на главный экран)

Var a,z,q:integer;
begin
readln(a);
q:=0;
while a<>0 do
begin
z:=a mod 10;
a:=a div 10;
if a mod 2=0 then
q:=q+1;
end;
writeln(q);
end.

Устройства ввода: Клавиатура, сканер, микрофон.
Устройства вывода: Принтер, монитор, колонки.
Внешняя память: Жесткий диск и Видеокамера.