RanInt#(1;6→A
A+RanInt#(1;5→B
Si B>6 Alors
	B-6→B
Fin
B→C
Répéter jusqu'à C≠A≠D≠C≠B≠D
	RanInt#(1;6→C
	RanInt#(1;6→D
⤴
0→M
Répéter jusqu'à M=4
	?→E
	,4→M
	,1Ent(E→E
	10(E-Ent(E→F
	Si A≠F≠B≠C≠F Alors
		M-,1→M
	Fin
	Si F=D Alors
		M+1→M
	Fin
	,1Ent(E→E
	10(E-Ent(E→F
	Si A≠F≠B≠D≠F Alors
		M-,1→M
	Fin
	Si F=C Alors
		M+1→M
	Fin
	,1Ent(E→E
	10(E-Ent(E→F
	Si A≠F≠C≠D≠F Alors
		M-,1→M
	Fin
	Si F=B Alors
		M+1→M
	Fin
	Ent(E→F
	Si B≠F≠C≠D≠F Alors
		M-,1→M
	Fin
	Si F=A Alors
		M+1→M
	Fin
	Afficher résultat M
⤴
"Oui"