**tickets_sold should have 34 iterations 0, 1 , 2, ... and so on thus I should have 34 iterations of Profits but only have 33 **
upper_bound <- 33 Fare<-20