(while:prn:int:/(-(sqrt:+(*(= a(read)b(read))b 3)(* 4 a a))a)3)