optimale Code in Mathematica

["Manfred Engelskirchen" <engelskirchen@XXXXXXX.de>]

Hallo Freunde von Mathematica,
 
folgendes Problem:
 
Jeder Ausdruck:  x+y,x-y,x*y,x/y  in Kombination mit (4,9,15,36) soll
berechnet werden.Wie lauten x und y?
Mein Ansatz:
 
FindInstance[x+y==a&&x-y==b&&x*y==c&&x/y==d&&1<x<=36&&1<y<=36&&1<a<=36&&1<b<
=36&&1<c<=36&&1<d<=36,{x,y,a,b,c,d},Integers,30]//Sort.
 
Die Antwort wird an 5.Stelle aufgelistet.Wie kann mann das besser
programmieren?
 
 
Gruß aus Hamburg 
M.Engelskirchen