Program zad2;
var x, broj, rezultat:integer;
function cifre(n:integer):integer;
var br:integer;
begin
  br:= 0;
  while(n>0) do
    begin
      n := n div 10;
      br := br +1;
    end;
    
    cifre:=br;
end;

procedure cifre2(n:integer; var br:integer);
begin
  br:= 0;
  while(n>0) do
    begin
      n := n div 10;
      br := br +1;
    end;
    
end;



begin
  readln(x);
  
  rezultat:= cifre(x);
  
  writeln(rezultat);
  
  writeln(cifre(12356));
  
  
  cifre2(x,broj);
  
  writeln(broj);
  
end.