Programa que pida 6 datos de 3 personas.

Proceso bidi

definir c,y,x como entero;

definir a como cadena;

Definir f como cadena;

dimension a(3,6);

c<-0;

Para c<-0 Hasta 2 Con Paso 1 Hacer

Escribir "Nombre:";

Leer a(c,0);

Escribir "Apellido: ";

Leer a(c,1);

Escribir "Direccion; ";

Leer a(c,2);

Escribir "Numero de telefono";

Leer a(c,3);

Escribir "Edad";

Leer a(c,4);

Escribir "Correo electronico";

Leer a(c,5);

FinPara

Para c<-0 Hasta 2 Con Paso 1 Hacer

Escribir a(c,0);

Escribir a(c,1);

Escribir a(c,2);

Escribir a(c,3);

Escribir a(c,4);

Escribir a(c,5);

FinPara

FinProceso