r:?read;while(a:r(?-,?-,~))#~do dispterms(round(a/2*((b:r())^2-((b^2-r()^2+a^2)/2/a)^2)^.5));