var
p,r,i, d, k: entero;
c: caracter;
fvar
{ Pre: en la entrada estandard hay una secuencia acabada en ‘.’ }
c := leerCaracter(); p := 0;
mientras ( c ≠ ‘.’ ) hacer
p := p + 1; r:=0; i := caracterACodigo©;
mientras (i ≠ 0 ) hacer
d := i mod 10;
para k := 1 hasta d hacer
r := r + p;
fpara
i := i div 10;
fmientras
escribirEntero®;
c := leerCaracter();
fmientras
{Post: se debe escribir para la salida estandard la secuencia:
r0 r1 r2 r3 .... rM1F
siendo ri la suma de los dígitos del codigo del caracter ièssim
multiplicada por i }
falgorisme