Module Module1

    Sub Main()
        Dim inParameter() As String
        Dim ret As Integer
        Dim N As Integer
        Dim R As Integer

        inParameter = Console.ReadLine.Split(" "c)
        N = CType(inParameter(0), Integer)
        R = CType(inParameter(1), Integer)

        If N >= 10 Then
            ret = R
        Else
            ret = R + 100 * (10 - N)
        End If

        Console.WriteLine(ret.ToString)
    End Sub

End Module
