strUtils/test5.mod

MODULE test5;

IMPORT InOut, strUtils;

VAR
  chaine : ARRAY[0..255] OF CHAR;
  
BEGIN
  chaine := "et voilà une joile chaine";
  InOut.WriteCard(strUtils.NumberOfChar(chaine, "i"),5);
  InOut.WriteLn;
END test5.