枚举类型的使用

Question

    口袋中有红、黄、蓝、黑、白五种颜色的小球若干（各种颜色小球数大于1），每次从口袋中依次取出三个小球，利用枚举类型编写程序，求出取得三种不同颜色小球的可能取法。

Answer 1

type
  BallType = (btRed, btYellow, btBlue, btBlack, btWhite);

Answer 2

for i:=0 to 3 do
  for j:=0 to 3-i do
    for k:=0 to 3-i-j do
      for l:=0 to 3-i-j-k do
      begin
      end;