Написать программу: дано натуральное число (не более 10 000), определить количество цифр в нем

var i: byte; begin var n:=readinteger ('Введите n: '); repeat inc (i); n:=n div 10; until n=0; write (i); end.

//PascalABC.NET begin   write('Количество цифр: ', ReadString('Введите число:').Length) end.