var 
n,k:integer;
begin
writeln ('Vvedide chislo n');
readln (n);
while n>0 do
begin
n:=n div 10;
k:=k+1;
end;
writeln ('kol-vo cifr =',k);
end.