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

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