program one_per_cent
  implicit none
  integer :: i = 1
  integer(16) :: x, m = 100
  read(*,*) x
  do
    m = int(m*1.01,16)
    if (m >= x) then
      write(*,'(i0)') i
      stop
    end if
    i = i+1
  end do
end program one_per_cent