program main
  
  implicit none
  integer(8) :: x, i, j
  
  read(*,*) x

  i = 100
  j = 0
  do 
    j = j + 1
    i = i + i/100 
    if( i >= x ) then
      exit
    end if
  end do
  print*, j
   
end program main
