Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11) Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

Reduce[{a^2+b^2==c^2,a+b+c==1000,0<a<b<c},{a,b,c},Integers]

Times @@ %All, 2