Некто vlad задал задачку: найти первую пару идущих подряд нулей.
Сказав, что цикл нестандартный.

Позор нашему тут коллеге, не сумевшему сразу, на инстинкте написать простенький цикл Дейкстры.

Нестандартный цикл >> цикл Дейкстры.

Приводимый код написан для поиска в массиве.
Легко меняется на поиск в последовательности.

Код пишется автоматом по постусловию (i >= LEN(a)) OR oneZero & (a[i] = 0)

## Код:
```
i := 0;
      oneZero := FALSE;
      LOOP IF (i < LEN(a)) & ~oneZero THEN
         oneZero := a[i] = 0;
         INC(i);
      ELSIF (i < LEN(a)) & (a[i] # 0) THEN
         oneZero := FALSE;
         INC(i);
      ELSE EXIT END END;
      
      IF i < LEN(a) THEN (*эквивалентное упрощение: albobin*)
         Log.String("нашли: ");  Log.Int( i-1 );  Log.Ln;
      ELSE
         Log.String("не нашли");  Log.Ln;
      END;
```

Раздел 1.9 новых Алгоритмов ... прочесть в любом случае невредно.