
Imports System.Console
Module Module1
    Sub Main()
        Dim n As Integer = ReadLine()
        Dim ans As Integer
        If n >= 400 Then
            If n <= 599 Then
                ans = 8
            ElseIf n <= 799 Then
                ans = 7
            ElseIf n <= 999 Then
                ans = 6
            ElseIf n <= 1199 Then
                ans = 5
            ElseIf n <= 1399 Then
                ans = 4
            ElseIf n <= 1599 Then
                ans = 3
            ElseIf n <= 1799 Then
                ans = 2
            ElseIf n <= 1999 Then
                ans = 1
            End If
        End If
        WriteLine(ans)
    End Sub
End Module

