𝒟=CompoundPoissonDistribution[12*20,ParetoDistribution[500,3,0]];

Mean[𝒟]

simulation=RandomVariate[𝒟,10^5];
Histogram[simulation,{40000,120000,1000},"PDF",ImageSize->300]

Probability[x>80000,x\[Distributed]simulation]//N