program raf105;

var

 s:string;

 b:char;

 o,i:integer;

begin

write('Введите строку: ');

readln(s);

write('Введите искомую букву: ');

readln(b);

s:= lowercase(s);

b:= lowercase(b);

if s[1] = b

 then o+=1;

for i:=2 to length(s) do

 if (s[i]=b) and (s[i-1]=' ')

   then o+= 1;

writeln('С буквы "',b,'" начинается ',o,' сл.');

end.

Язык PascalABC