cdf =Manipulate[Column[{ 18*10^(k-1)*(n2-n1+1)+1}],Style[proposito,Bold,10],Spacer[{100,3}],
{{k,3,"Núm. Dígitos"},1,21,1,ControlType->SetterBar},{{n1,-2,"Exponente Mín."},-10,10,1,ControlType->SetterBar},{{n2,2,"Exponente Máx."},1,21,1,ControlType->SetterBar}
,Alignment->Center,Deployed->True,AppearanceElements->"ResetButton",LocalizeVariables->True,ContinuousAction->False,FrameLabel->{{None,None},{Column[{,Row[{Style["Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada",Bold,10,RGBColor[0,0,0.5]]}],Row[{Style["Escuela de Informática | Universidad Nacional de Costa Rica",Bold,10,RGBColor[0.5,0.1,0]]}]},Center],Style["Título: Cardinalidad de F(k, n1, n2). ", Bold,14, RGBColor[0,0.33,0.33]]}},Initialization:>(
proposito ="Propósito: Hallar el número de elementos en el conjunto F(k, n1, n2) ";

)]