program answer
  implicit none
  integer :: X

  read(*,*) X
  if(400<=X.and.X<=599) then
     write(*,*) '8'
  else if(600<=X.and.X<=799) then
     write(*,*) '7'
  else if(800<=X.and.X<=999) then
     write(*,*) '6'
  else if(1000<=X.and.X<=1199) then
     write(*,*) '5'
   else if(1200<=X.and.X<=1399) then
      write(*,*) '4'
   else if(1400<=X.and.X<=1599) then
      write(*,*) '3'
    else if(1600<=X.and.X<=1799) then
       write(*,*) '2'
    else if(1800<=X.and.X<=1999) then
       write(*,*) '1'
    end if

    stop
   end program answer