      PROGRAM piyo
      IMPLICIT NONE
      INTEGER,PARAMETER :: p = 16
      integer(p) :: x,kyu,i
      
      read*,x
      
      kyu = 8
      do i = 599,1999,200
        if( x<=i )then
          print*,kyu
          stop
        else
          kyu = kyu - 1
        end if
      end do
      
      
      
      
      stop
      !debugg
      
      print*,x,i
      
      
      END PROGRAM