In[]:= Solve[
 {a^2 + b^2 == c^2, a + b + c == 1000, a > 0, b > a, c > b},
 {a, b, c}, Integers]

Out[]= {{a -> 200, b -> 375, c -> 425}}