Here is the source code:
Manipulate[
Pane[Text@
TraditionalForm[
Column[{Grid[{{Column[
Table[Row[Table[Binomial[i, j], {j, 0, i}], " "], {i, 0,
n}], Center],
Column[Table[Row[Table[( {
{i},
{j}
} ), {j, 0, i}]], {i, 0, n}], Center]}}], "",
With[{n = n},
HoldForm[(a + b)^n] == Expand[(a + b)^n]]}]], {550, 425},
Alignment -> {Center, Top}], {{n, 7}, 0, 10, 1}]Manipulate[
Pane[Text@
TraditionalForm[
Column[{Grid[{{Column[
Table[Row[Table[Binomial[i, j], {j, 0, i}], " "], {i, 0,
n}], Center],
Column[Table[Row[Table[( {
{i},
{j}
} ), {j, 0, i}]], {i, 0, n}], Center]}}], "",
With[{n = n},
HoldForm[(a + b)^n] == Expand[(a + b)^n]]}]], {550, 425},
Alignment -> {Center, Top}], {{n, 7}, 0, 10, 1}]
