字符串

1. 字符串
   (string.cpp/c/pas)
   【问题描述】
   小熊有一个由小写英文字母组成的字符串s = s1s2…sn。小熊想要计算s中有多少子串包含字符串“bear”，也就是找出满足字符串x(i, j)= sisi+1…sj 包含至少一个字符串“bear”的 (i, j)对数（1≤i≤j≤n）。
   字符串x(i, j)包含字符串“bear”定义为存在一个整数k（i≤k≤j-3），满足sk=b，sk+1=e，sk+2=a，sk+3=r。
   请帮助小熊解决这个问题。

【输入】
输入文件名为string.in。
输入共1行，包含一个非空字符串s。数据保证字符串s中只包含小写英文字母。

【输出】
输出文件名为string.out。
输出共1行，包含一个整数，表示这个问题的答案。

【输入输出样例】
string.in string.out
bebearar 9

【输入输出样例说明】
符合条件的9对(i, j)为：(1，6)，(1，7)，(1，8)，(2，6)，(2，7)，(2，8)，(3，6)，(3，7)，(3，8)。

【数据说明】
对于50%的数据，1≤n≤200。
对于100%的数据，1≤n≤3000。

题解：
非常尴尬，第一题公式套错了。

var
  s:ansistring;
  i,len,tot:longint;
begin
  assign(input,'string.in');
  assign(output,'string.out');
  reset(input);
  rewrite(output);
  readln(s);
  i:=pos('bear',s);
  while i>0 do
  begin
    len:=length(s);
    tot:=tot+a*(len-(i+2));
    delete(s,1,i);
    i:=pos('bear',s);
  end;
  writeln(tot);
  close(input);
  close(output);
end.