Дано натуральное число.Определите количество цифр в нём.( в Паскаль)

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

program CountDigits;

var
num, count: integer;

begin
writeln('Enter a natural number: ');
readln(num);

count := 0;

while num > 0 do
begin
num := num div 10;
count := count + 1;
end;

writeln('Number of digits: ', count);
end.