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