(loop(format t" ~D
"(-(set'a(read))(princ(/(- a(isqrt(-(* a a)(*(read)4))))2)))))