begin
  repeat
    var a := ArrGen(6, i -> ArrRandomInteger(4,1,6).Order.Skip(1).Sum);
    var cnt := a.Count(x -> x >= 15);
    if (a.Sum < 75) or (cnt < 2) then
      continue;
    a.Println;
    Println($'Sum: {a.Sum}. Count of elements >= 15: {cnt}');
    break;
  until False;
end.