Написать программу: дано натуральное число (не более 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.