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

Var
  n: longint;
  s: string;
  k: byte;

begin
  Write('Введите натуральное число '); Readln(n);
  { Преобразуем число к строке, убрав знак (мало ли...) }
  Str(abs(n), s);
  { Выведем длину полученной строки }
  Writeln('Количество цифр в числе равно ', Length(s))
end.

Тестовое решение:
Введите натуральное число 164275353
Количество цифр в числе равно 9

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