program main implicit none real(kind=8)::x,y,r=0 read(*,*)x,y if(0<x-y)r=x-y if(1-y<x)x=1-y print '(f0.10,X,f0.10)',r,x end program