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

var 
  n, cnt: integer;
begin
  write('Введите число: ');
  read(n);
  repeat
    inc(cnt);
    n := n div 10;
  until n = 0;
  writeln('Количество цифр в числе: ', cnt);
end.