Проанализируйте предыдущую задачу и ответьте на вопрос:
Чему равно значение переменной n после окончания работы программы?
Программа:
var n, count: integer;
begin
read(n);
count := 0;
while n <> 0 do begin
count += 1;
n := n div 10;
end;
writeln('Number - ', n, ' contains ', count, ' digits');
end.