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.