RosettaCodeData/Task/Flow-control-structures/Stata/flow-control-structures.stata

mata
function pythagorean_triple(n) {
	for (a=1; a<=n; a++) {
		for (b=a; b<=n-a; b++) {
			c=n-a-b
			if (c>b & c*c==a*a+b*b) {
				printf("%f %f %f\n",a,b,c)
				goto END
			}
		}
	}
	END:
}

pythagorean_triple(1980)
165 900 915