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

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