// PascalABC.Net 3.0, сборка 1066
begin
var s:=ReadString('Введите текст :');
Write('Количество повторов "ЛЕС" равно ',
s.Split(' ').Where(x->Copy(x,1,3)='ЛЕС').Count);
end.
Тестовые примеры:
Введите текст : ПО ЛЕСУ ХОДИТ ЛЕСНИК
Количество повторов "ЛЕС" равно 2
Введите текст : ЛЕС, ПОДЛЕСОК, ПЕРЕЛЕСОК- ДОЖДЬ ЗАСТАЛ МЕНЯ В ПУТИ...
Количество повторов "ЛЕС" равно 1