Написать к этому коду блок схему!

[email protected] в категроии Информатика, вопрос открыт 22.09.2018 в 06:09

var a,b:integer;
begin
writeln ('Введите число');
readln(a);
repeat
a:= a div 10;
inc(b);
until a=0;
writeln ('Кол-во цифр = ',b);
end.