Imports System
Module A
	Sub Main
		Dim N,R As Integer
		Dim inputs() As String
		inputs = Console.ReadLine().Split()
		N = Integer.Parse(inputs(0))
		R = Integer.Parse(inputs(1))
		If N >= 10
			Console.WriteLine(R)
		Else
			Console.WriteLine(R+(100*(10-N)))
		End If
	End Sub
End Module
