program CountDigits;

var
num, count: integer;

begin
writeln${}^{\prime }Enteranaturalnumber{:}^{\prime }$;
readln$num$;

count := 0;

while num > 0 do
begin
num := num div 10;
count := count + 1;
end;

writeln${}^{\prime }Numberofdigits{:}^{\prime },count$;
end.