Lexico TArray=cadena[1..7] //Creo el tipo TArray Array:TArray //Creo la variable Array Array={lunes, martes, miercoles, jueves, viernes, sabado, domingo} DiaActual:string x,aux:integerInicio Escribir("Ingrese el dia de la semana en que se encuentra"); Leer (DiaActual) for x=1 hasta 7 paso 1 hacer si DiaActual=Array[x] hacer aux=x; fsi ffor escribir("Han transcurrido ", aux ," dias") escribir("Quedan por transcurrir ", 7 - aux ," dias" );Fin