program cut
  implicit none
  integer(8) :: equality
  double precision :: w, h, x, y
  read *, w, h, x, y
  equality = 0
  if (w/2 == x .and. h/2 == y) equality = 1 
  print '(f0.6,a,i0)', w*h/2," ", equality
  stop
end program cut
