Manipulate[Plot[(a*x^3)/(x-1)-a/(x-1),{x,0,2},PlotStyle->Blue,PlotRange->{{0,2},{-4,12}},Epilog->{Text["(lim_(x -> 1))",{0.1,-2}],Text[((a (x^3))/(x-1))-(a/(x-1)),{0.4,-2}],Text["(Overscript[=, ∞ - ∞])",{.7,-2}],Text[3a,{.8,-2}]}],{a,1,3,1/3}]