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

Для решения задачи используем цикл с предусловием:

program tsifri;

var m, n: integer;

k: integer; {является счетчиком цифр числа}

begin

{Вводим исходное произвольное целое число}

writeln ('Введите N='); readln (n);

m:=n; k:=0; {счетчику цифр присваиваем начальное значение}

{Пока m0 выполнять тело цикла}

while m 0 do

begin

k:=k+1;

m: = m div 10; {"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}

end;

{Вывод количества цифр.}

writeln ('B числе ', n,' - ', k, ' цифр (ы) ');

end.