Proceso para pedir los datos de n cantidad de numeros con un array.

Proceso libros
definir a,c como cadena;
definir b como entero;
dimension a(5,5);
b<-0;
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 "ingrese: [ escribus ],para terminar el programa";
    Leer c;
    Mientras (c <> "escribus") Hacer
        Escribir "ingrese: [ escribus ], para terminar el programa";    
        Leer c;
    FinMientras

FinProceso