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

А в кумире не мог бы?

Ловиvars:string;a:integer;beginwrite('Введите натуральное число - ');readln(s);a:=length(s);writeln('В числе ',a,' цифр.');end.