Algo rechercheOccurences
Variable	
	txt,c:chaine
	b1,b2:booléen
	i,j:entier
	
Début
	Ecrire("rentrez le txt")
	Lire(txt)
	Ecrire("Quels mots recherchez vous ?")
	Lire(c)
	
	Pour i allant de 1 à longueur(txt)-longueur(c)+1
	b1=TRUE
	j=1
		Tant que j<longueur(c)+1 AND (txt[i+j]=c[j])
			j:=j+1
		FinTantQue
		Si b1 alors
			Ecrire("l'occurence est présente en ",i)
		FinSI
	FinPour
Fin