hy=HypergeometricDistribution[n,M,N];

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

kartyB=BinomialDistribution[4,1/4]
PDF[kartyB,2]//N

Needs["BarCharts`"]

Clear[n,m];
tabulkaB=Array[n,5]

Do[n[i+1]=PDF[kartyB,i],{i,0,4}];

tabulkaH=Array[m,5]

Do[n[i+1]=PDF[kartyH,i],{i,0,4}];

BarChart[{tabulkaB,tabulkaH},BarLabels->{0,1,2,3,4}]

KartyH2=HypergeometricDistribution[4,80,320]

Clear[m]

tabulkaH2=Array