Помогите решить задачу.Вот что у меня получилось, но это не правильно.
program prim1;
var m, n: integer;
k: integer;
begin
writeln('Введите N=');
readln(n);
m:=n;k:=0;
while m <>0 do
begin
k:=k+1; m:= m div 10;
end;
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.