programación pascal: tenis de mesa
var
s: cadena;
recuento de procedimientos(s: cadena, n: entero);
a, b, i: entero;
comienzo
a: =0; b: =0; p> p>
repetir
i := i 1
si s[i]=='W' entonces a :=a 1; p> si s[i]=='L' entonces b:=b 1;
si ((agt;=n) y (bgt;=n) y (abs(a-b)gt;= 2) ) o (s[i]=='E') entonces
comenzar
writeln(a ':' b); 0; b:=0
final
hasta s[i]=='E'
final
comenzar<; /p >
s:=read();
recuento(s, 11);
recuento(s, 21);
p>No estoy seguro del tamaño de tus datos ni de las fuentes de entrada y salida...