Module Program
    Dim a As Integer
    Dim result As Integer
    Sub Main(args As String())
        a = Console.ReadLine()
        If 400 <= a <= 599 Then
            result = 8
            Console.WriteLine(result)
        ElseIf 600 <= a <= 799 Then
            result = 7
            Console.WriteLine(result)
        ElseIf 800 <= a <= 999 Then
            result = 6
            Console.WriteLine(result)
        ElseIf 1000 <= a <= 1199 Then
            result = 5
            Console.WriteLine(result)
        ElseIf 1200 <= a <= 1399 Then
            result = 4
            Console.WriteLine(result)
        ElseIf 1400 <= a <= 1599 Then
            result = 3
            Console.WriteLine(result)
        ElseIf 1600 <= a <= 1799 Then
            result = 2
            Console.WriteLine(result)
        ElseIf 1800 <= a <= 1999 Then
            result = 1
            Console.WriteLine(result)
        End If




        'result = 5





        '      Select Case a
        ' Case 4Console.WriteLine(result)
        'result = 7

        ' Case 800 <= a <= 999
        'result = 6
        'Console.WriteLine(result)
        'Case 1000 <= a <= 1199
        'result = 5
        'Console.WriteLine(result)
        'Case 1200 <= a <= 1399
        'result = 4
        'Console.WriteLine(result)
        'Case 1400 <= a <= 1599
        'result = 3
        'Console.WriteLine(result)
        'Case 1600 <= a <= 1799
        'result = 2
        ''Case 1800 <= a <= 1999
        'result = 1
        'Console.WriteLine(result)
        'End Select
        'Console.WriteLine(result)
    End Sub
End Module