do1;read*,a,b,c;1 print'(i0)',nint((4*a*a*b*b-(a*a+b*b-c*c)**2)**.5/4);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page