枚举类型的使用,该如何处理

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

[解决办法]
type
BallType = (btRed, btYellow, btBlue, btBlack, btWhite);
[解决办法]

Delphi(Pascal) code

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;