program problemB
  implicit none


integer(8) :: X, n
integer(8) :: BNUM, RNUM, NMAX, count,MMAX, sum, A, B, C, D,multi,countA,countC
real(8) :: money
character(len=4) :: color



read(*,*) X

n=0
money=100.0
do while (int(money)<X)
  n=n+1
  money=1.01*money
end do

write(*,*)n


stop
end program
