А мы тут ни при чём

В контрольной работе по информатике для студентов экономического факультета требовалось написать на Паскале программку: подсчитать, сколько раз во введённой с клавиатуры строке встречается подстрока «мн». Выдержка из одной контрольной:

writeln('Введите строку');
readln(str);
writeln('Сколько раз в этой строке встречается подстрока "мн"?');
readln(n);
writeln('Такая подстрока встречается ',n,' раз');