Problem 14
FilledPlot[PDF[dist,x],{x,20,60}]
N[1-CDF[dist,37]]
Converted by
Mathematica
February 10, 2001