open Str;;

type set_of_values = {w: int; h: int; x: int; y: int; r: int}

let decompose list =
  match list with
  | w :: h :: x :: y :: r :: [] -> {w = w; h = h; x = x; y = y; r = r}
  | _ -> failwith "Error";;

let yes_no_of_bool b =
  match b with
  | true -> "Yes"
  | false -> "No";;

read_line()
|> Str.split (Str.regexp " ")
|> List.map int_of_string
|> decompose
|> fun vals -> [(vals.x - vals.r) >= 0;
                (vals.y + vals.r) <= vals.h; 
                (vals.x + vals.r) <= vals.w;
                (vals.r - vals.y) >= 0];
|> List.for_all (fun x -> x)
|> yes_no_of_bool
|> print_endline

