SSL 字符串

做法：。。。模拟
代码如下：

var
 s:ansistring; i,n,j:longint;
 ans:int64;
begin
 //assign(input,'string.in');reset(input);
 //assign(output,'string.out');rewrite(output);
 readln(s);
 n:=length(s);
 ans:=0;
 for i:=1 to n-3 do
  for j:=i to n-3 do
   begin
    if (s[j]='b')and(s[j+1]='e')and(s[j+2]='a')and(s[j+3]='r') then
     begin
      ans:=ans+n-2-j;
      break;
     end;
   end;
  writeln(ans);
 //close(input); close(output);
end.