xxxxx:
В контрольной работе по информатике для студентов экономического факультета требовалось написать на Паскале программку - подсчитать сколько раз в введенной с клавиатуры строке встречается подстрока "мн". Выдержка из одной контрольной:
...
writeln('Введите строку');
readln(str);
writeln('Сколько раз в этой строке встречается подстрока "мн"?');
readln(n);
writeln('Такая подстрока встречается:',n,'раз');
...


(с) http://bash.org.ru/