Want to manipulate and visualize differential equation of a falling object

something to get you started. Set the initial height at 100 above the ground. Plot shows how the object height changes

Manipulate[
 data = Table[{i, 
    sol /. {m -> theMass, drag -> theDrag, v0 -> theV0, t -> i}}, {i,0, time, 0.01}];
 ListLinePlot[data, AxesOrigin -> {0, 100}, 
  PlotRange -> {{0, 10}, {0, 200}}, AxesLabel -> {"Time", "y(t)"}, 
  BaseStyle -> 14, PlotStyle -> Red, GridLines -> Automatic, 
  GridLinesStyle -> LightGray]
 ,
 {{theMass, 10, "Mass"}, 0.01, 10, 0.01, Appearance -> "Labeled"},
 {{theDrag, 1, "Drag"}, 0.01, 10, 0.01, Appearance -> "Labeled"},
 {{theV0, 20, "Initial velocity"}, 0, 40, 0.01, 
  Appearance -> "Labeled"},
 {{time, 0.001, "time"}, 0.001, 10, 0.001, Appearance -> "Labeled"},

 TrackedSymbols :> {theMass, theDrag, theV0, time},

 Initialization :> {
   g = -9.81;
   ode = m y''[t] == m g - drag y'[t];
   sol = y[t] /. First@DSolve[{ode, y[0] == 100, y'[0] == v0}, y[t], t]
   }
 ]