program sample
    implicit none
    integer(8) ::a, b,c,i,j,m,n,k,a1,b1,c1
    integer(8)::x,y
    
    read(*,*) x,y
   
    a=2*x-y/2
    b=y/2-x
    if (mod(y,2)==1)then
        write(*,*)'No'
        stop
    end if
    if (b<0 .or. a<0)then
        write(*,*)'No'
        stop
    
    end if
    write(*,*)'Yes'

    stop
end program sample
  

