Составте алгоритм для определения количества цифр в записи числа произвольного натурального числа. составить блок схему

Короткое решение:) Можно было бы, конечно, и без числа, но лучше будет, если интерпретатор сам распорядится ошибочным вводом =)

var a: integer;
b: string;
begin
readln(a);
b := inttostr(a);
writeln(length(b));
end.