Kumulativ fördelningsfunktion (?)

f.1.1 = 0.35
f.2.1 = 0.40
f.3.1 = 0.50
f.4.1 = 0.55
f.5.1 = 0.65

do m=1 to 5
  f.m.0 = 1 - f.m.1
end

p = 0
do r1=0 to 1
  do r2=0 to 1
    do r3=0 to 1
      do r4=0 to 1
        do r5=0 to 1
          if r1+r2+r3+r4+r5 >= 3 then
          p = p + f.1.r1*f.2.r2*f.3.r3*f.4.r4*f.5.r5
        end
      end
    end
  end
end
say p

t = {35, 40, 50, 55, 65}/100;
m = 1 - t;
p = 0;
T = Tuples[{0, 1}, 5];
For[i = 1, i <= Length[T], i++,
 If[Total[T[[i]]] >= 3,
  ppart = 1;
  For[j = 1, j <= 5, j++,
   ppart = ppart (DiscreteIndicator[T[[i]][[j]], 0, {0, 1}] m[[j]] + DiscreteIndicator[T[[i]][[j]], 1, {0, 1}] t[[j]]);
   ];
  p = p + ppart;
  ]
 ]
p