Please only use R to answer the question.

A group of students at a school takes a history test. The distribution is normal with a mean of 25, and a standard deviation of 4. 1. Everyone who scores in the top 30% of the distribution gets a certificate. What is the lowest score someone can get and still earn a certificate? 2. The top 5% of the scores get to compete in a statewide history contest. What is the lowest score someone can get and still go onto compete with the rest of the state? Show your answer using R.