НЕОБХОДИМО СДЕЛАТЬ БЛОК-СХЕМУ!

Дано натуральное число n. Сколько цифр в числе?

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