r:?read;while 0#(a:r(?nil,?nil,0))do printf(?t,"~d
",fix(a/2*((b:r())^2-((b^2-(r())^2+a^2)/2/a)^2)^.5+.5));