program razryad;
var a,b,c:integer;
begin
writeln('Введи число');
readln(a);
c:=0;
b:=0;
  while a<>b do
  begin
  a:=a div 10;
  c:=c+1;
  end;
  writeln(c, 'разрядов');
end.