program MSOLUTIONSA
    implicit none
    integer(8)::X,A(8)=(/599,799,999,1199,1399,1599,1799,1999/),i

    read*,X
    
    do i=1,8
        if(X<=A(i))exit
    end do
    print'(i0)',9-i
end program MSOLUTIONSA