m:-prompt1(''),readln([A,B,C]),(A<0;format("~d ",round(A/2*sqrt(B^2-((B^2-C^2+A^2)/2/A)^2))),m).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page