(while:prn" "(-(= a(read))(pr:/(- a(sqrt:-(* a a)(*(read)4)))2)))