program bm
implicit none
integer(16)::X
integer(16)::M=100_16
integer::i=1
read*,X
do
    M=M+(M/100_16)
    if(M>=X)then
        print"(I0)",i
        stop
    endif
    i=i+1
end do
contains
end program bm