Написать к этому коду блок схему!
var a,b:integer;
begin
writeln ('Введите число');
readln(a);
repeat
a:= a div 10;
inc(b);
until a=0;
writeln ('Кол-во цифр = ',b);
end.

СМ СКРИН

========================