C'est une fonction qui lit au clavier une suite de caractères terminee par '.' et qui renvoie le nombre d'occurences du caractère L.

FUNCTION nb_single (C1, CFin : char) : integer;

VAR res : integer;

c : char;

BEGIN

res := 0; { init }

read(c); { lit le 1er caractere }

while c <> CFin do

begin

if c = C1 then res := res+1;

read(c); { lit le prochain caractere }

end;

readln; { vide le buffer apres le CFin }

{ et SURTOUT absorbe le retour chariot }

nb_single := res; { resultat de la fonction }

END