Program Occurrence_mot ;
var ch, mot : string;
nb, i, k: integer;
begin
repeat
writeln ('saisir un texte');
readln (ch);
Until length (ch)>20;
writeln ('saisir un mot');
readln (mot);
k:=length (mot); nb:=0; i:=1;
repeat
if (ch[i] = mot[1]) and (mot = copy (ch, i, k)) then
begin
nb:=nb+1;
i:=i+k;
end
else
i:=i+1;
until i>length(ch);
writeln (mot, ' figure dans le texte ', nb, ' fois');
end.