Algo

val = mavaleur // valeur dont on cherche le nombre d'occurrences)
nb_Cell = 0  // nombre de cellules entre la 1ère et la 2ème occurrence

i = 0 	//indice de parcours de la liste qui donne aussi la position
j = 1 	//j est l'indice de l'occurence de "mavaleur"

Tant que (pas fin de la liste et j<3)
	{

	Si (valeur[i] = val)
		{

		 position[j] = i
		 j = j+1
		/* 
		Si on trouve une occurence, on passe à la suivante, 
		sinon on ne fait rien.
		*/

		}

	i = i+1   
	/* 
	On parcourt toujours le tableau, que l'on ait trouvé 
	une occurence ou pas (tant qu'on n'est pas à la 3ème bien sûr)
	*/

	}

nb_Cell = position[2] - position[1] - 1

type PListe=^ListeChainee; // pointeurs sur un type ListeChainee

     ListeChainee=record
                  v:integer; // on considère des valeurs entières
                  suiv:PListe; // pointeur vers le maillon suivant
                  end;

function PremiereOccurrence(p:PListe; var q:PListe; val:integer):integer; // q est le pointeur dont on donne l'indice en résultat
var n:integer;
begin
if p=nil then begin
              q:=nil;
              result:= -1 // on a plus aucun élément dans la liste
              end
         else begin
              if p^.v=val then begin
                               q:=p;
                               result:=0; // élément 0 : 1er élément
                               end
                          else begin
                               n:=PremiereOccurrence(p^.suiv,q,val);
                               if n= -1 then result:=-1
                                        else result:=n+1;
                               end;
              end;
end;

function Distance(var p:PListe; val:integer):integer;
var q,r:PListe; n1,n2:integer;
begin
n1:=PremiereOccurrence(p,q,val); // n1 : la première occurence
n2:=PremiereOccurrence(q,r,val); // n2 : la deuxième occurence
if (n2= -1) then result:= -1 // il n'y a pas 2 éléments `val` dans la liste
            else result:=n2-n1-1; // -1 : voir l'explication de Giorgiolino
end;