Imports System

Module Program
    Sub Main(args As String())

        Dim X As Integer = Integer.Parse(Console.ReadLine())

        Dim ans As Integer
        Select Case X
            Case 400 To 599
                ans = 8
            Case 600 To 799
                ans = 7
            Case 800 To 999
                ans = 6
            Case 1000 To 1199
                ans = 5
            Case 1200 To 1399
                ans = 4
            Case 1400 To 1599
                ans = 3
            Case 1600 To 1799
                ans = 2
            Case 1800 To 1999
                ans = 1
        End Select

        Console.WriteLine(ans)

    End Sub
End Module
