function e=verovatnocagreske(N,p)
for n=1:N
    x=rand(1,1);
    if x<p
        e(n)=1;
    else
        e(n)=0;
    end
end