In[]:=
Do[If[5(a+b+c+d)+10==2*a*b*c*d&&a<=b<=c<=d,Print[{a,b,c,d}]],{a,1,50},{b,1,50},{c,1,50},{d,1,50}]
{1,1,3,35}
{1,1,5,9}