R=0 ; N= 0; 
for i=1:1000
posit=tirage_entier (1,1,4);
temps=1;
while posit<>0 & temps<24 
L=list(0,1,2,3); m=posit+1; L(m)=null();
k=tirage_entier (1,1,3);
posit=L(k);
temps=temps+1;
end;
if posit==0 then R=R+temps;
else   N=N+1;
end
end
m=R/(1000-N)
disp("temps de retour moyen : "+string(m));
disp("nombre de non-retour : " +string(N));
