For[i=1,i

For[j=i,j

For[k=j,k

If[i^2+j^2==k^2,

Print[i,"",j,"",k];

]

]

]

]

直接複製進去，Shift+Enter，結果為：

345

51213

6810

72425

81517

91215

94041

102426

116061

121620

123537

138485

144850

152025

153639

163034

166365

182430

188082

202129

204852

212835

217275

243240

244551

247074

256065

273645

284553

304050

307278

326068

334455

335665

358491

364860

367785

395265

398089

404258

407585

425670

456075

485573

486480

516885

547290

577695

606387

657297