program name
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int64):: x,y,n
    
    read*, x
    y=100   
    n=0
    do while(y < x)
        y=y+y/100
        n=n+1
    end do
    print'(i0)', n
end program name