Module Module1

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

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

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

End Module
