Suppose historical data shows that demand (D) for a specific item follows a normal distribution with mean = 100 and SD = 15 (D~N(100, 15)). Generate a random number X~N(100, 10). Provide Code in R with the following condition: -

if P(D>X), print "Probability of demand greater than X is less than/greater than/equal to 50%."

For instance, if x= 150, the P(D>150) should be less than 50%. So, print "Probability of demand greater than 150 is less than 50%."