(define (System.out.println x)
  (begin
    (display x)
    (newline)
  )
)

(let (
      (Value (read))
     )
  (cond
    ((= (modulo Value 2) 0) (System.out.println "YES"))
    ((= Value 1) (System.out.println "NO"))
    (else
     (let loop((i 3))
       (if (= (modulo Value i) 0)
           (System.out.println "YES")
           (if (< (/ Value 2) i)
               (System.out.println "NO")
               (loop (+ i 2))
           )
       )
     )
   )
  )
)