pnorm(-2)
pnorm(17, mean=29, sd=6)
1 - pnorm(35, mean=29, sd=6)
pnorm(35, mean=29, sd=6, lower.tail=FALSE)

bmis <- rnorm(100,  mean=29, sd=6)
bmis >= 35

sum(bmis >= 35)