Нашёл. Без программирования. С помощью Excel. Минут 10 ушло.

Но можно и программно (Pascal).
var
a,b,c: integer;
begin
for a:=100 to 250 do
for b:=a+100 to a+200 do
begin
c:=1000-a-b;
if sqr(a)+sqr(b)=sqr(c) then
begin
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'^2+',b,'^2=',c,'^2=',sqr(c));
writeln(a,'*',b,'*',c,'=',a*b*c);
exit;
end;
end;
end.

Приняв сумму сторон за N=1000, решив систему двух уравнений получим:
b = N - N*N / ( 2 ( N - a ))
В цикле по a от 1 до 292 находим целое значение дроби 500000/(1000 - a)
a = 200, b = 375, c = 425

а почему нельзя использовать числа 0 500 500 ? они же тоже удовлетворяют условию.