дано натуральне число n. визначте кількість цифр у цьому числі

  var m, n: longint;
  k: integer;
  begin 
writeln('Введите число:'); 
 readln(n); 
 m:=n; 
 k:=0;
 while m <>0 do  
   begin   
   inc(k);
m:= m div 10;  
 end;
  writeln('B числе ',k, ' цифр'); 
 readln;
end.