M=floor(6*rand(1,100)+1)
d=0// d est égal à 0 tant que l'on ne trouve pas 4 consécutifs égaux.
for i=1:97
    if (M(1,i)==M(1,i+1))&(M(1,i+1)==M(1,i+2))&(M(1,i+2)==M(1,i+3)) then
        d=1
    end
end
if d==1 then 
    afficher("4 consécutifs égaux")
else
    afficher (" pas 4 consécutifs égaux")
end