Программа на Pascal:

program CountBaSyllable;
var
text: string;
count: integer;
i: integer;
begin
count := 0;
writeln('Введите текст:');
readln(text);
for i := 1 to length(text) - 1 do
begin
if (text[i] = 'b') and (text[i+1] = 'a') then
count := count + 1;
end;
writeln('Слог "ba" встречается ', count, ' раз.');
end.

Программа просит пользователя ввести текст, затем считает количество вхождений слога "ba" в этот текст и выводит результат на экран.