#a a <- dbinom(x = 3, size = 8, prob = 0.2/0.65) print(a)

#b b <- 1-dbinom(x=0,size = 5, prob = 0.45) print(b)

#c c <- pgeom(1, prob=0.2, lower.tail = FALSE) print(c)

#d d <- dnbinom(x=7, size = 3, prob = 0.45) print(d)