С клавиатуры вводится положительное целое число. Определить количество цифр этого числа.

Не хочет работать и выводит эту ошибку

Error(s):Process killed, because it ran longer than 10 seconds. Is your code waiting for keyboard input which is not supplied?

Ты вводила цифру ?

Она работает

Program n_1;var n,count:integer;Begin Write('введите натуральное полож.число n -'); read(n); count:=0; While n>0 do Begin n:=n div 10; count:=count+1; end;write(count);End.Попробуй эту программу