Составить программу, которая для любого натурального числа печатает на естественном языке количество цифр в записи этого числа.Составить программу на Паскале.Срооооочно!!!

Предыдущий
вопрос Следующий
вопрос

Программа на Паскале, которая выводит количество цифр в записи введенного пользователем числа:

program CountDigits;
var
number, count: integer;
begin
write('Введите число: ');
readln(number);
count := 0;
while number > 0 do
begin
number := number div 10;
count := count + 1;
end;
writeln('Количество цифр в числе: ', count);
end.

Данная программа запрашивает у пользователя число, затем с помощью цикла while подсчитывает количество цифр в записи этого числа и выводит результат.