Составьте программу(Паскаль) для определения количества цифр в записи произвольного натурального числа. Сейчас проходим while, судя по всему его и надо использовать.

var n,p,k:integer;beginreadln (n);p:=n;while p<> 0 do begink:=k+1;p:=p div 10;end;writeln ('k=',k);end.