Using R language please

Part I Simulation

An eyeglass shop has $n$ eyeglasses to sell and makes $$1\mathrm{.}00$ on each sale. Say the number of con$-$

sumers of these eyeglasses is a random variable with a density function that can be approximated

by

$$5\mathrm{.}00n\{$:$E($ Profit $)={\displaystyle \underset{0}{\overset{n}{}}}(x-\frac{1}{2}(n-x))\frac{1}{200}dx+{\displaystyle \underset{n}{\overset{200}{}}}(n-5(x-n))\frac{1}{200}dx)(0,1)U_1,U_2,U_3,$dotsN$=$mini$m\{n$:${}_i=1^n{U}_i>1\}NE(N)NE(N)$