m:-readln([A,B]),format("~0f
",(A+B*B/A)/4),m.