Составить программу.
Дано натуральное число n. Подсчитать количество цифр этого числа.

program chisla;uses crt;var a,b,c: integer;beginwriteln('Введите натуральное число: '); readln(a);b:=a;c:=0;while b <>0 do beginc:=c+1; b:= b div 10; end;writeln('B числе ',a,' - ',c, ' цифр');end.