Problem 19

FilledPlot[PDF[dist,x],{x,50,100}]

pC=N[CDF[dist,80]-CDF[dist,70]]

Solve[1-CDF[dist,x]==0.2,x][[1,1]]

Quantile[dist, 0.8]   (** alternate way **)