do:input""a,b,c:?int((4*a*a*b*b-(a*a+b*b-c*c)^2)^.5/4+.5)loop