p = input("Give a probability between 0 and 0.05 p=");
n = input("Give a number greater than 30  n=");

l=n*p;

for n = 1:3:100
   x=0:n;
   y=binopdf(x,n,p);
   plot(x,y)
   pause(0.5)

  endfor