Imports System

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

    End Sub
End Module