Imports System

Module Program
    Sub Main(args As String())
        Dim tmpA As String() = Split(Console.ReadLine(), " ")

        Dim N As Long = CLng(tmpA(0))
        Dim R As Long = CLng(tmpA(1))

        Dim Score As Long = 0

        If N < 10 Then
            Score = R + 100 * (10 - N)
        Else
            Score = R
        End If


        Console.WriteLine(Score)
    End Sub
End Module
