По текст на паскале. среди чисел последовательност 1 , 2 , 4 , 8 , 16 , найдите количество чисел до первого шестизначного .

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  SeqWhile(1,t->2*t,t->t<100000).Count.Println
end.

Результат
17