var

i,j,k,l,m,n:integer；

a:array[0..1000] of char；

sc,so:integer；

begin

while a[i]<>’E’ do begin

i:=i+1；

n:=n+1；

read(a[i])；

end；

i:=0；

repeat

i:=i+1；

if a[i]=’W’ then sc:=sc+1；

if a[i]=’L’ then so:=so+1；

if sc=11 then begin

writeln(sc,’:’,so)；

sc:=0；

so:=0；

end；

if so=11 then begin

writeln(sc,’:’,so)；

sc:=0；

so:=0；

end；

if ((sc<>0) or (so<>0)) and (i=n-1) then

writeln(sc,’:’,so)；

until i=n；

writeln；

begin

i:=0；

sc:=0；

so:=0；

repeat

i:=i+1；

if a[i]=’W’ then sc:=sc+1；

if a[i]=’L’ then so:=so+1；

if sc=21 then begin

writeln(sc,’:’,so)；

sc:=0；

so:=0；

end；

if so=21 then begin

writeln(sc,’:’,so)；

sc:=0；

so:=0；

end；

if ((sc<>0) or (so<>0)) and (i=n-1) then

writeln(sc,’:’,so)；

until i=n；

end；

end.

大牛们帮我看看