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

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

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