program main
      implicit none
      integer(16) :: x, i, cnt

      read *, x
      cnt = 1
      i = 100
      do
        i = i * 1.01
        if ( i >= x ) then
          print *, cnt
          stop
        else
          cnt = cnt + 1
        end if
      end do

end program main
