func Gen; \Return sum of the three largest of four random values
int  I, R, Min, SI, Sum, Die(4);
[Min:= 7;  Sum:= 0;
for I:= 0 to 4-1 do
    [R:= Ran(6)+1; \R = 1..6
    if R < Min then
        [Min:= R;  SI:= I];
    Sum:= Sum+R;
    Die(I):= R;
    ];
return Sum - Die(SI);
];

int Total, Count, J, Value(6);
[repeat Total:= 0;  Count:= 0;
        for J:= 0 to 6-1 do
            [Value(J):= Gen;
            if Value(J) >= 15 then Count:= Count+1;
            Total:= Total + Value(J);
            ];
until   Total >= 75 and Count >= 2;
Text(0, "Total: ");  IntOut(0, Total);  CrLf(0);
for J:= 0 to 6-1 do
        [IntOut(0, Value(J));  ChOut(0, ^ )];
CrLf(0);
]