Module Module1

    Sub Main()
        Dim inParameter() As String
        Dim ret As Integer = 0

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

        If inParameter(0) >= 10 Then
            ret = inParameter(0)
        Else
            ret = inParameter(0) + 100 * (10 - inParameter(1))
        End If
        Console.WriteLine(ret)
    End Sub

End Module
