(* Algorithme "naïf", non optimisé *)

p := 1 ;
while p <> LONGUEUR(L) do begin
    x := ELEMENT(L,p) ;
    q := p ;
    while q <> LONGUEUR(L) do
      if ELEMENT(L,q) = x then SUPPRIMER(L,q)
      else q := q + 1 ;
    p := p + 1
end