mmax:50;
for a:1 thru mmax do 
(for b:(a+1) thru mmax do 
for c:1 thru mmax do 
block(d:sqrt(a^2+c^2),
if (floor(d)#d) then go(loop),
e:sqrt(b^2+c^2),
if (floor(e)#e) then go(loop),
aire:c*(a+b)/2,
f:2*aire/d,
if (floor(f*100)#f*100) then go(loop),
g:2*aire/e,
if (floor(g*100)#g*100) then go(loop),
display([a,b,c,d,e,f,g]),
loop));