Question

Напишите программу на языке Паскаль по алгоритму.
Заранее спасибо)
​

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := (1, 1);

 repeat

   a *= 2;

   b += 2

 until a = 128;

 Print(b)

end.