x=0;p=0; y=0;z=0;n=x^2;if(n==y^2 + z^2 and y+z>x and y*z/2==2*(x+y+z), goto loop, goto next);loop:p=p+1;printp," =",x,y,z;next:x++;if(x<200, goto4,0);x=0;y++;if(y<200, goto4, 0);x=0;y=0;z++;if(z<200, goto4,0)
OUTPUT:
1 = 41 40 9
2 = 26 24 10
3 = 20 16 12
Total areas =[40 * 9 / 2] + [24 * 10/2] + [16 * 12/2] =180 + 120 + 96 = 396 units^2.