Составить программу для решения следующей задачи: Дана последовательность символов,концом которой является точка.Подсчитать,сколько в этой последовательности букв аb?

// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString(gt;).ToCharArray.TakeWhile(c-gt;clt;gt;.);
  Writeln("ab" встречается ,
      s.Pairwise.Where(c-gt;c[0]+c[1]=ab).Count, раз(а));
end.

Пример
gt; Cabbage is available at all times in our Abbey. That is not bad!
"ab" встречается 2 раз(а)

#includelt;iostreamgt;
#includelt;stringgt;
using namespace std;
int main()
{
string a = "";
int k = 0;
getline(cin, a);
for(int i = 0; i lt; a.length() - 2; i++)
{
if(a[i] + a [i + 1] == "ab") k ++;
}
cout lt;lt; k;
}