1:
2:
3:
4:
5:
6:

[0]: 1 //enspricht 1 gewürfelte zahl
[1]: 2 //enspricht 2 gewürfelte zahl
[2]: 3 //enspricht 3 gewürfelte zahl
[3]: 2 //enspricht 4 gewürfelte zahl
[4]: 1 //enspricht 5 gewürfelte zahl
[5]: 2 //enspricht 6 gewürfelte zahl					

1:
2:
3:
4:
5:
6:

[0]: 2 //enspricht anzahl von augenzahl 1
[1]: 3 //enspricht anzahl von augenzahl 2
[2]: 1 //enspricht anzahl von augenzahl 3
[3]: 0 //enspricht anzahl von augenzahl 4
[4]: 0 //enspricht anzahl von augenzahl 5
[5]: 0 //enspricht anzahl von augenzahl 6					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

6 Counter erstellen
Prüfe auf Augenzahl 1 bis 6
{
  Counter für momentane Augenzahl 0 setzen

  Prüfe für würfel 1 bis 5
  {
     ist Augenzahl == würfel.Augenzahl dann
       Counter für momentane Augenzahl erhöhen
  }
}					

1:
2:
3:
4:
5:

if a=b and b=c then  //wenn 1.2.3. würfel überieinstimmen
lbl_pl1_3g.caption:=floattostr((a+b+c)*2)
else
if b=c and c=d then  // wenn würfel 2.3.4. übereinstimmen
lbl_pl1_3g.caption:=floattostr((b+c+d)*2)