Дана блок-схема, записать программный код для неё. Пжлстаааа​

var n,c:integer;

begin

c:=0;

readln(n);

if n>0 then

begin

c:= c +1;

n:=n div 10

else

write('c=',c);

end;

end.