---

алг
нач
  цел a, b
  a := 1
  b := 1
  нц пока a <> 128
    a := a * 2
    b := b + a
  кц
  вывод "a = ", a, ", b = ", b
кон