> -- Илья Ермаков писал(а):
> Если в цикле возникает "f: BOOLEAN" - флаг в условии, то это значит, что цикл составлен неверно. Эмуляция break через логический флаг.
Вы имеете в виду этот кусок:## Код:
```
f := TRUE;
    j := 1;
    WHILE f & (ps[j]*ps[j] <= p) DO
      f := (p MOD ps[j]) # 0;
      INC(j)
    END;
    IF f THEN
      ps[i] := p;
      INC(i)
    END;
```
Да, помню это место. Вначале так не было, приходилось дважды вычислять выражение (p MOD ps[j]) # 0, а так как оптимизатора в компиляторе BB нет, то это замедляло выполнение на 20%. Так что это просто оптимизация.
А вы тут сразу -- "не умеешь, не умеешь!!!"