var a,b,c,d,e,f,g:longint;
begin
read(a,b,c,d);
e:=b+c+d;
if a>=e then write(a-e,' ','YES')
        else write(e-a,' ','NO');
        end.
/**************************************************************
	Problem: 1635
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/