PascalABC.NET

begin

 var st := ReadString('Введите строку:');

 var a := ReadInteger('Введите число:');

 Print('Обнаружено совпадений:',st.Where(x -> x = IntToStr(a)).Count);

end.