066536 / 269В

program p269;
var
st,st2:string;
l,k,kol:integer;
begin
writeln; writeln; writeln;
writeln('Введите предложение:');
readln(st);
l:=length(st);
kol:=0;
st2:=copy(st,1,1);
if (st2='б') or (st2='Б') then kol:=kol+1;
for k:=2 to l do
begin
st2:=copy(st,k,1);
if (st2='б') or (st2='Б')
then
begin
st2:=copy(st,k-1,1);
if st2=' ' then kol:=kol+1;
end;
end;
writeln('Количество слов на "Б" = ',kol);
{readln;}
end.