program main implicit none integer::PX,PY,QX,QY read *,PX,PY read *,QX,QY print '(f0.1)', REAL((ABS(PX-QX)+ABS(PY-QY)))/2 end program main