(* Coloring Pascal's Triangle *)

M=50;
Column[Table[If[Mod[Binomial[n,k],2]==0,Style[0,Bold],Style[1,FontColor->Red,Bold]],{n,0,M},{k,0,n}],Center]