字符串

小熊有一个由小写英文字母组成的字符串s = s₁s₂...s_n。小熊想要计算s中有多少子串包含字符串“bear”，也就是找出满足字符串x(i, j)= s_is_i+1…s_j 包含至少一个字符串“bear”的     (i, j)对数（1≤i≤j≤n）。

字符串x(i,j)包含字符串“bear”定义为存在一个整数k（i≤k≤j-3），满足s_k=b，s_k+1=e，s_k+2=a，s_k+3=r。

请帮助小熊解决这个问题。

分析：水题==（数据太小，直接暴力）

var
  i,ans,j:longint;
  s1:string;
  s:ansistring;

begin
  assign(input,'string.in');reset(input);
  assign(output,'string.out');rewrite(output);
  readln(s);
  for i:=1 to length(s)-3 do
    begin
      s1:='';
      for j:=i to i+3 do
        s1:=s1+s[j];
      if s1='bear' then
        ans:=ans+(i*(length(s)-i-2));
  end;
  writeln(ans);
  close(input);close(output);
end.