program main
implicit none 
real :: x1,y1 ! coordinates of first point
real :: x2,y2 ! coordinates of second point
real :: d ! distance
print*,"enter the value of x1,y1"
read*,x1,y1 
print*,'enter the value of x2,y2'
read*,x2,y2 
d =sqrt((x1-x2)**2+(y1-y2)**2)
print*,"distance", d 
end program main