X=1;
Y=2;
N=0;
while X<>Y
  X=tirage_entier(1,1,6);
  Y=tirage_entier(1,1,6);
  N=N+1;
end
afficher("N="+string(N));