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