var a,b,x,y:real; begin read(a,b); if a