用mathematica求方程组的有约束条件的解

想用mathematica （我的版本是5.0）解决如下问题：

![img](

只想在程序求解的过程中，求出正数解； 如何操作呢？