Составте алгоритм для определения количества цифр в записи числа произвольного натурального числа.

Program n1;
var n,m,p,k: longint;
begin
write('введите n: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('кол-во цифр: ',K);
end.

А зачем у Вас p:=m mod 10 ? Переписали из задаче о сумме цифр числа? ))))