---

其实，这题很水

我们每次pos到一个”bear”,就将其前后多余的相乘，就得出包含这个”bear”的单词数。

为了避免重复计算，我们每次做完一个”bear”,就delete掉

---

代码如下：

var  x:ansistring;     i,ans:longint;begin  ans:=0;  readln(x);  i:=pos('bear',x);  while i<>0 do    begin      ans:=ans+i*(length(x)-i-2);      delete(x,1,i);      i:=pos('bear',x);    end;  write(ans);end.