Pseint - Encuesta

Proceso Encuesta
definir I,edad,estrato,cedadma,cedadme,ccasado,cunionl,csoltero,cpropia,carrendada,n,cfamiliar,c0,c1,c2,c3,c4,c5,c6 como entero;
definir civil,vivienda,nom como caracter;
cedadma<-0; cedadme<-0; ccasado<-0; cunionl<-0; csoltero<-0; cpropia<-0; carrendada<-0; n<-0; cfamiliar<-0; c0<-0; c1<-0; c2<-0; c3<-0; c4<-0; c5<-0; c6<-0;

escribir "digite la cantidad de encuestados";
leer n;

para I<-1 hasta n
escribir "digite el nombre del encuestado";
leer nom;
escribir "digite la edad";
leer edad;
escribir "digite estado civil (Soltero, Casado, Union Libre)";
leer civil;
escribir "digite tipo de vivienda (Propia, Arrendada, Familiar)";
leer vivienda;
escribir "digite Estrato Social (0,1,2,3,4,5,6)";
leer estrato;

si edad>=18 entonces
cedadma<-cedadma+1
Sino
cedadme<-cedadme+1
FinSi

si civil="casado" Entonces
ccasado<-ccasado+1
Sino
si civil="soltero" entonces
csoltero<-csoltero+1
Sino
cunionl<-cunionl+1

FinSi
FinSi

si vivienda="propia" entonces
cpropia<-cpropia+1
Sino
si vivienda="arrendada" entonces
carrendada<-carrendada+1
Sino
cfamiliar<-cfamiliar+1
FinSi
FinSi

si estrato=0 entonces
c0<-c0+1
Sino
si estrato=1 entonces
c1<-c1+1
Sino
si estrato=2 Entonces
c2<-c2+1
Sino
si estrato=3 Entonces
c3<-c3+1
Sino
si estrato=4 entonces
c4<-c4+1
Sino
si estrato=5 Entonces
c5<-c5+1
Sino
c6<-c6+1
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi

FinPara


escribir "Total Mayores de edad " cedadma;
escribir "Total Menores de edad " cedadme;
escribir "Total solteros = " csoltero "   Casados = " ccasado "   Union Libre = " cunionl;
escribir "Total Viviendas Propias = " cpropia "  Arrendadas = " carrendada "  Familiar = " cfamiliar;
escribir "Total Estrato: 0 = " c0 " Estr1 = " c1 " Estr2 = " c2 " Estr3 = " c3 " Estr4 = " c4 " Estr5 = " c5 " Estr6 = " c6;

FinProceso