program main implicit none real(kind=8)::x,y,r=0 read(*,*)x,y if(0