Датчиком случайных чисел сгенерируйте случайное натуральное число в интервале от1 до 900. определите, сколько цифр в полученном числе.

Var
  n: integer;
  s: string;

begin
  Randomize;
  n := Random(900) + 1;
  Str(n, s);
  writeln('Количество цифр в числе ', n, ' равно ', length(s))
end.

Тестовое решение:

Количество цифр в числе 598 равно 3