program hi
  use, intrinsic :: iso_fortran_env
  implicit none
  integer(int32) :: a, b, c, d
  read(input_unit, *) a, b, c, d
  if (a == 0) then
    write(output_unit, '(i0)') d / b
  else if (b == 0) then
    write(output_unit, '(i0)') c / a
  else
	write(output_unit, '(i0)') min(c / a, d / b)
  end if
end program