Program main
  implicit none
  integer(16) :: X
  integer(16) :: a = 100
  integer :: n
  read(*,*) X
  n = 0
  do
     n = n + 1
     a = (a*int(101,8))/int(100,8)
     if (a>=X) exit
  end do
  write(*,'(i0)') n
  
end program main
