p = 0.1;
x = VektorGreske(10000,p);
hist(x)