НЕОБХОДИМО СДЕЛАТЬ БЛОК-СХЕМУ!Дано натуральное число n. Как узнать сколько цифр в числе?

begin
readln(n);
______________________________
a:=n;
while a<>0 do
begin
a:= a div 10;
k:=k+1;
______________________________
end;