f[]:=Rasterize@Column[{
color=RandomChoice[{Pink, LightGreen,LightBlue,LightGray, Yellow,LightBrown, LightMagenta,LightPurple,LightYellow}];,
"MATH&141  Precalculus 1, Algebra",
"Prof. Kelso",
" ",
Style["Distance Formula",Bold, Orange,20],
" ",
"This is obtained using the Pythagorean Theorem: ",
"(a^2)+(b^2)=(c^2)",
" ",
"Where a and b are the length of the two legs of a right",
"triangle and c is the length of the Hypotenuse. ",
"Conside a right triangle in the first quadrant of the ",
"Cartesian Plane:",
"Let (Subscript[P, 1])= ((Subscript[x, 1]),(Subscript[y, 1])),(Subscript[P, 2])= ((Subscript[x, 2]),(Subscript[y, 1])),(Subscript[P, 3])= ((Subscript[x, 2]),(Subscript[y, 2])) ", " ",
(Subscript[x, 1])=1;(Subscript[x, 2])=3;(Subscript[y, 1])=1;(Subscript[y, 2])=2;
ℛ=Triangle[{{(Subscript[x, 1]),(Subscript[y, 1])},{(Subscript[x, 2]),(Subscript[y, 1])},{(Subscript[x, 2]),(Subscript[y, 2])}}];
Graphics[{EdgeForm[Thick],color,ℛ,Black,Text["((Subscript[x, 1]),(Subscript[y, 1]))",{(Subscript[x, 1]),(Subscript[y, 1])}+{0,-0.2}],Text["((Subscript[x, 2]),(Subscript[y, 1]))",{(Subscript[x, 2]),(Subscript[y, 1])}+{0,-0.2}],Text["((Subscript[x, 2]),(Subscript[y, 2]))",{(Subscript[x, 2]),(Subscript[y, 2])}+{0,0.2}],Text["a",(({(Subscript[x, 2]),(Subscript[y, 2])}+{(Subscript[x, 2]),(Subscript[y, 1])})/2)+{0.2,0}],Text["b",(({(Subscript[x, 1]),(Subscript[y, 1])}+{(Subscript[x, 2]),(Subscript[y, 1])})/2)+{0,-0.2}],
Text["c",(({(Subscript[x, 2]),(Subscript[y, 2])}+{(Subscript[x, 1]),(Subscript[y, 1])})/2)+{0,0.2}]},Ticks->None,Axes->True,AxesOrigin->{0,0},AxesLabel->{X,Y}],
"",
"What is the length of the side a? (Subscript[y, 2])-(Subscript[y, 1])" ,
"What is the length of the side b? (Subscript[x, 2])-(Subscript[x, 1])",
"Then",
"(c^2)=((Subscript[x, 2])-(Subscript[x, 1]))^2+((Subscript[y, 2])-(Subscript[y, 1]))^2",
"and",
"c=(Sqrt[((Subscript[x, 2]) - (Subscript[x, 1]) )^2 + ((Subscript[y, 2]) - (Subscript[y, 1]) )^2])",
" ",
Style["Example 1",Bold],

(Subscript[x, 1])=1;(Subscript[x, 2])=RandomInteger[{2,4}];(Subscript[y, 1])=RandomInteger[{1,3}];(Subscript[y, 2])=((-1)^RandomInteger[] )+(Subscript[y, 1]) ;
ℛ=Triangle[{{(Subscript[x, 1]),(Subscript[y, 1])},{(Subscript[x, 2]),(Subscript[y, 1])},{(Subscript[x, 2]),(Subscript[y, 2])}}];
Graphics[{EdgeForm[Thick],color,ℛ,Black,Text["("<>ToString[(Subscript[x, 1])]<>","<>ToString[(Subscript[y, 1])]<>")",{(Subscript[x, 1]),(Subscript[y, 1])}+{0,If[(Subscript[y, 1])<(Subscript[y, 2]),-0.2,0.2]}],Text["("<>ToString[(Subscript[x, 2])]<>","<>ToString[(Subscript[y, 1])]<>")",{(Subscript[x, 2]),(Subscript[y, 1])}+{0,If[(Subscript[y, 1])<(Subscript[y, 2]),-0.2,0.2]}],Text["("<>ToString[(Subscript[x, 2])]<>","<>ToString[(Subscript[y, 2])]<>")",{(Subscript[x, 2]),(Subscript[y, 2])}+{0,If[(Subscript[y, 1])<(Subscript[y, 2]),0.2,-0.2]}],
Text["a="<>ToString[Abs[(Subscript[y, 2])-(Subscript[y, 1])]],(({(Subscript[x, 2]),(Subscript[y, 2])}+{(Subscript[x, 2]),(Subscript[y, 1])})/2)+{If[(Subscript[y, 1])<(Subscript[y, 2]),0.4,0.4],0}],
Text["b="<>ToString[Abs[(Subscript[x, 2])-(Subscript[x, 1])]],(({(Subscript[x, 1]),(Subscript[y, 1])}+{(Subscript[x, 2]),(Subscript[y, 1])})/2)+{0,If[(Subscript[y, 1])<(Subscript[y, 2]),-0.2,0.2]}],
Text["c="<>ToString[(Sqrt[((Subscript[x, 2])-(Subscript[x, 1]))^2+((Subscript[y, 2])-(Subscript[y, 1]))^2]),TraditionalForm],(({(Subscript[x, 2]),(Subscript[y, 2])}+{(Subscript[x, 1]),(Subscript[y, 1])})/2)+{If[(Subscript[y, 1])<(Subscript[y, 2]),-0.3,-0.2],If[(Subscript[y, 1])<(Subscript[y, 2]),0.3,-0.2]}]},Ticks->None,Axes->True,AxesOrigin->{0,0},AxesLabel->{X,Y}],
" ",
Row[{"(c^2)=",TraditionalForm[((ToString["("<>ToString[(Subscript[x, 2])]<>"-"<>ToString[(Subscript[x, 1])]<>")"])^2)],"+",TraditionalForm[((ToString["("<>ToString[(Subscript[y, 2])]<>"-"<>ToString[(Subscript[y, 1])]<>")"])^2)]," ⟹ ","c=",TraditionalForm[√(TraditionalForm[((ToString["("<>ToString[(Subscript[x, 2])]<>"-"<>ToString[(Subscript[x, 1])]<>")"])^2)]+(ToString[(Subscript[y, 2])]-ToString[(Subscript[y, 1])])^2),ParameterVariables:>{(Subscript[x, 2]), (Subscript[x, 1])}],"=",ToString[(Sqrt[((Subscript[x, 2])-(Subscript[x, 1]))^2+((Subscript[y, 2])-(Subscript[y, 1]))^2]),TraditionalForm]}], (*FIXME: ORDERING PROBLEM*)
Row[{"(b^2)=",TraditionalForm[((ToString["("<>ToString[(Subscript[x, 2])]<>"-"<>ToString[(Subscript[x, 1])]<>")"])^2)]," ⟹ ","b="<>ToString[Abs[(Subscript[x, 2])-(Subscript[x, 1])]]}],
Row[{"(a^2)=",TraditionalForm[((ToString["("<>ToString[(Subscript[y, 2])]<>"-"<>ToString[(Subscript[y, 1])]<>")"])^2)]," ⟹ ","a="<>ToString[Abs[(Subscript[y, 2])-(Subscript[y, 1])]]}],
" ",
" ",




}]

f[]

Row[{"(c^2)=",TraditionalForm[((ToString["("<>ToString[(Subscript[x, 2])]<>"-"<>ToString[(Subscript[x, 1])]<>")"])^2)],"+",TraditionalForm[((ToString["("<>ToString[(Subscript[y, 2])]<>"-"<>ToString[(Subscript[y, 1])]<>")"])^2)]," ⟹ ","c=",TraditionalForm[(Sqrt[TraditionalForm[(ToString[(Subscript[x, 2])]-ToString[(Subscript[x, 1])])^2]+(ToString[(Subscript[y, 2])]-ToString[(Subscript[y, 1])])^2]),ParameterVariables:>{(Subscript[x, 2]), (Subscript[x, 1])}],"=",ToString[(Sqrt[((Subscript[x, 2])-(Subscript[x, 1]))^2+((Subscript[y, 2])-(Subscript[y, 1]))^2]),TraditionalForm]}]

TraditionalForm[(Sqrt[(ToString[(Subscript[x, 2])]-ToString[(Subscript[x, 1])])^2+(ToString[(Subscript[y, 2])]-ToString[(Subscript[y, 1])])^2])(*,ParameterVariables:>{(Subscript[x, 2]), (Subscript[x, 1])}*)]

TraditionalForm[(ToString[(Subscript[x, 2])]-ToString[(Subscript[x, 1])])^2]+(ToString[(Subscript[y, 2])]-ToString[(Subscript[y, 1])])^2

(ToString[(Subscript[x, 2])]-ToString[(Subscript[x, 1])])^2

(ToString[(Subscript[y, 2])]-ToString[(Subscript[y, 1])])^2