(loop(setf a(read)b(read)c(read)s(/(+ a b c)2))(format t"~D
"(round(sqrt(*(- s a)(- s b)(- s c)s)))))