MAme 32 kariet aka je prav ze zo 4och vybranych budu 2 srdcove
cez binomicke: (4 nad 2)*(1/4)^2*(3/4)^2

cez hypergeometricke:

kartyH=HypergeometricDistribution[4,8,32]
PDF[kartyH,2]//N

kartyB=BinomicalDistribution[4,1/4]

PDF[kartyB,2]//N

Clear[n,m]

<<"BarCharts`";<<"Histograms`";<<"PieCharts`"

tabulkaB=Array[n,5];
Do[n[i+1]=PDF[kartyB,i],{i,0,4}]
tabulkaH=Array[m,5];
Do[m[i+1]=PDF[kartyH,i],{i,0,4}]
BarChart[{tabulkaB,tabulkaH},BarLabels->{0,1,2,3,4}]