var
str: string;
sep: array of string := new string[1](xyz);
begin
readln(str); //str := xzyfffxyzffffffffffxyz xyzvv;
writeln(str.Split(sep, System.StringSplitOptions.None).Length - 1, вхождений);
writeln(str.Remove(str.IndexOf(sep[0]) + 3, str.LastIndexOf(sep[0]) - str.IndexOf(sep[0]) - 3));
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.