program main

  implicit none
  integer :: i, x, a
  !real :: a

  read *, x

  a = 100
  i = 0
  do
    if( int(a) >= x ) then
      write( 6, * ) i
      stop
    end if
    a = a * 1.01e0
    i = i + 1
  end do

end program main
