 Priveee 
                                                15.07.2019 14:40
                                                
                                                Priveee 
                                                15.07.2019 14:40
                                             likaizmaylova 
                                                15.07.2019 14:40
                                                
                                                likaizmaylova 
                                                15.07.2019 14:40
                                             Hamster02 
                                                15.07.2019 14:40
                                                
                                                Hamster02 
                                                15.07.2019 14:40
                                             СитниковаЛиза 
                                                15.07.2019 14:40
                                                
                                                СитниковаЛиза 
                                                15.07.2019 14:40
                                             макс3033 
                                                27.05.2020 13:57
                                                
                                                макс3033 
                                                27.05.2020 13:57
                                             Spectator10 
                                                27.05.2020 12:31
                                                
                                                Spectator10 
                                                27.05.2020 12:31
                                             jookyun 
                                                11.08.2019 02:10
                                                
                                                jookyun 
                                                11.08.2019 02:10
                                             milk051 
                                                11.08.2019 02:10
                                                
                                                milk051 
                                                11.08.2019 02:10
                                             Роза2735 
                                                09.08.2019 17:00
                                                
                                                Роза2735 
                                                09.08.2019 17:00
                                            
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
Writeln(RegEx.Matches(s,'ро').Count) // количество 'ро'
end.
Тестовое решение:
5
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
var s1:=ReadLnString('Введите контекст для поиска:');
Writeln(RegEx.Matches(s,s1).Count)
end.
Тестовое решение:
Введите контекст для поиска: оро
3