Module Module1

    Sub Main()
        Dim readline As String
        Dim len As Integer = 0
        Dim hogehoge() As String

        hogehoge = Console.ReadLine.Split(" "c)

        If CType(hogehoge(0), Integer) >= 10 Then
            Console.WriteLine(CType(hogehoge(1), Integer).ToString)
        Else
            Console.WriteLine((CType(hogehoge(1), Integer) + ((10 - CType(hogehoge(0), Integer)) * 100)).ToString)
        End If

    End Sub


End Module
