m:-prompt1(''),readln([A,B]),(A<0;format("~d
",round((A*A/B+B)/2)),m).