Evaluación de expresión de revancha de 2013noip

El código es el siguiente:

program expr;

var

bds: ansistring; : matriz [ 1..100001] de entero largo;

zifu: matriz [0..100000] de carácter;

k: matriz [1..50000] de entero largo;

i, l, n, jeje, j, a, ps: entero largo

f: cadena

comenzar

assign( entrada, * expr.in*);

reset(entrada);

asignar(salida, *expr.out*);

reescribir(salida) ;

p>

n:=0;

i:=0;

l:=1;

jeje :=0;

zifu[0]:=* *;

readln(bds);

mientras bdslt;gt;** hacer

comenzar

inc(i);

a:=pos(* *, bds);

ps:=pos(*** , bds);

si ((a gt; ps) o (a=0)) y (pslt; gt; 0) entonces a：=ps;

f：= bds;

eliminar(f, a, longitud(f));

val(f, shuzi[i]);

n:=longitud( f) 1;

zifu[i]：=bds[n];

eliminar(bds, 1, n);

fin; >

for j：= 1 a lo que hago

comenzar

if(zifu[j]=***) y (zifu[j-1]=* *) luego

comenzar

inc(l);

k[l]:=shuzi[j]*shuzi[j 1];

end

de lo contrario, si (zifu[j]=***) y (zifu[j-1]=***) entonces k[l]：=k[l]*shuzi[j 1]

de lo contrario, si zifu[j-1]=* * entonces

comenzar

inc(l);

k[ l]：=shuzi[j] ;

end;

end;

for j：= 1 a l hacer inc(jeje,k[j] );

jeje:=jeje mod 10000;

escribir(jeje);

readln;

cerrar(entrada);

cerrar(salida);

fin.