Есть два закона поглощения и какой из них второй, никому не известно, кроме автора вопроса. Поэтому докажем оба, тем более, что доказательство элементарно.
В блок-схеме прямоугольник - действие(оператор), ромб - условие, овал - начало и конец алгоритма, параллелограмм - ввод и вывод данных, шестиугольник - условие в циклическом алгоритме.
var
i: <em>integer</em>;
begin
readln(i);
writeln(length(inttostr(i)));
<span>end.</span>