Proceso libros definir a,c como cadena; definir b como entero; definir sc Como Caracter; dimension a(5,5); b<-0; Repetir Para b<-0 Hasta 4 Con Paso 1 Hacer escribir "ingrese el titulo"; leer a(b,0); escribir "ingrese el autor"; leer a(b,1); escribir "ingrese el nombre"; leer a(b,2); escribir "ingrese el año de edición"; leer a(b,3); escribir "ingrese el codigo del libro"; leer a(b,4); FinPara Para b<-0 Hasta 4 Con Paso 1 Hacer escribir a(b,0); Escribir a(b,1); Escribir a(b,2); escribir a(b,3); escribir a(b,4); FinPara Escribir "si desea continuar ingrese: si, sino, igrese: escribus"; Leer sc; Hasta Que sc="escribus" | sc="ESCRIBUS" | sc="Escribus" FinProceso