Integrate[Integrate[x Exp[-y] Sin[y]/y^2,{x,0,y/2}],{y,0,Infinity}]