Нарисовать блок схему к "найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений

Формат. формат шрифта подразумевает под собой: выбор подчеркивания; подбор ширины; определение цвета шрифта; выбор шрифта; подбор начертания; выбор размера; кернинг шрифта; смещение  шрифта; шрифтовые спецэффекты; индексацию.характеристики шрифта: гарнитура, кегль, начертание, ширина, подчеркивание, кернинг, цвет шрифта, смещение символов шрифта, параметры анимации, индексация, регистр шрифта.но если попроще: шрифтов много, отличаются они друг от друга по 3-м параметрам: гарнитура,  размер символов,  начертание.а все остальное - лишь детализация.

Var b, v, t: integer; begin      write('skolko bilo bakteriy? '); readln(b);       v : = 1;       t : = 0;       while b > 0 do      begin          b : = b - v;           b : = b * 2;           v : = v * 2;           t : = t + 1;       end;       writeln(t); end.