var
  s: string;
  i,k: integer;
begin
  writeln('Введите слово:');
  readln(s);
  for i:=1 to length(s) do begin
   if s[i]='а' then
     if s[i+1]='б' then
      if s[i+2]='в' then
         k:=k+1
  end;
  Writeln('Буквосочетаний абв в тексте - ', k);

end.