{* Задача 264 *}

Unit ZADACH264;
Interface
Implementation
Begin
 writeln('Даны натуральное число n, символы s1, …, sn. Группы
символов, разделенные пробелами (одним или несколькими) и не
содержащие пробелов внутри себя, будем называть словами.
Найти количество слов, начинающихся с буквы б.

');
End.

Program zadach264;

Uses zadach264.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  st  : String;
  st2 : String;
  l   : integer;
  k   : integer;
  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 {* Переменная k увеличивается с 2 до l *}
  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.