ArrayPlot[
 ConstantArray[{Black, Red, Green, Blue, Magenta, Cyan, Yellow,
   White}, 5]]