  Program Main

    Implicit None
    Integer              :: N,R

    Read(*,*) N,R

    If (N >= 10) then
       Write(*,"(I0)") R
    Else
       R = R + 100*(10-N)
       Write(*,"(I0)") R
    Endif

  End Program
