Algoritmo FerreteriaPulgaIncDefinir men1, M ,men2, a , t, Total, Opc como Entero Definir a1,b,c,d,e,f,g,h,i,j,k,l,m1,n1,ñ,o1,p,q,r,s,t1,u,v,w,x,y1,z,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,Ing como Entero Definir Fac1, Fac2 ,Fac3, Fac4, Fac5 Como CaracterDimension HerMan[5], HerEle[5] , EPP[5] , MatCon[5] , SFE[5] , PQA[5], MaqInd[5], HA[5], FAC[100]t<-0M<-1// Herramientas Manuales//HerMan[1] <- "1. Martillos ($11.000)"HerMan[2] <- "2. Destornilladores ($6.000)"HerMan[3] <- "3. Llaves Inglesas ($9.000)"HerMan[4] <- "4. Alicates ($7.000)"HerMan[5] <- "5. Sierras ($80.000)"// Herramientas Electricas//HerEle[1] <- "1. Taladros ($60.000)"HerEle[2] <- "2. Sierras Eléctricas ($130.000)"HerEle[3] <- "3. Lijadoras ($55.000)"HerEle[4] <- "4. Amoladoras ($45.000)"HerEle[5] <- "5. Taladros de Percutor ($110.000)"//Equipo de Protrección Personal//EPP[1] <- "1. Cascos ($5.000)"EPP[2] <- "2. Guantes De Seguridad ($2.500)"EPP[3] <- "3. Gafas Protectoras ($2.500)"EPP[4] <- "4. Calzado de Seguridad ($40.000)"EPP[5] <- "5. Chalecos Reflectantes ($2.500)"//Materiales de Construcción//MatCon[1] <- "1. Cemento ($10.000)"MatCon[2] <- "2. Yeso ($15.000)"MatCon[3] <- "3. Ladrillos x10 ($1.000)"MatCon[4] <- "4. Bloques De Concreto ($1.500)"MatCon[5] <- "5. Varillas de Refuerzo ($2.500)"//Suministros de Fontanería y Electricidad//SFE[1] <-"1. Tuberías PVC ($1.500)"SFE[2] <-"2. Accesorios de Fontanería ($3.500)"SFE[3] <-"3. Cables Eléctricos ($50.000)"SFE[4] <-"4. Interruptores ($1.500)"SFE[5] <-"5. Enchufes ($5.000)"//Productos Químicos y Adhesivos//PQA[1] <- "1. Pinturas Industriales ($10.000)"PQA[2] <- "2. Selladores ($12.000)"PQA[3] <- "3. Lubricantes Industriales ($8.000)"PQA[4] <- "4. Silicona ($15.000)"PQA[5] <- "5. Adhesivos Epoxi ($9.000)"// Maquinaria Industrial //MaqInd[1] <- "1. Compresores de Aire ($163.980)"MaqInd[2] <- "2. Generadores Eléctricos ($441.262)"MaqInd[3] <- "3. Equipos de Soldadura ($1.009.999)"MaqInd[4] <- "4. Máquinas de Limpieza ($459.804)"MaqInd[5] <- "5. Elevadores de Carga ($1.750.824)"// Herrajes y Accesorios //HA[1] <- "1. Bisagras Industriales ($5.349)"HA[2] <- "2. Cerraduras de Alta Seguridad ($79.996)"HA[3] <- "3. Tornillería Especializada ($3.100)"HA[4] <- "4. Rieles para Puertas Corredizas ($38.300)"HA[5] <- "5. Sistemas de Almacenamiento ($34.999)"//Stock De Articulos//a1 = 50 b = 50c = 50d = 50e = 20f = 10g = 15h = 20i = 10j = 75k = 125l = 125m1 = 20n1 = 125ñ = 50o1 = 40p = 100q = 80r = 60s = 80t = 50 u = 40 v = 80w = 40x = 40y1 = 35z = 50 aa = 40ab = 45ac = 25ad = 15ae = 10af = 25ag = 10ah = 125ai = 55aj = 100ak = 75al = 80am = 85Total <- 0RepetirRepetir Borrar PantallaEscribir "************* Menu de la Ferreteria *************";Escribir "";Escribir "1. Venta Al Publico";Escribir "2. Facturación";Escribir "3. Stock De Articulos";Escribir "4. Ingreso De Articulos";Escribir "5. Pagar"Escribir "6. Salir"Leer men1;Hasta Que Men1 = 1 o Men1 = 2 o Men1 = 3 o Men1 = 4 o Men1 = 5 o Men = 6Segun men1 hacer1: Borrar Pantalla;RepetirN<-1Borrar PantallaEscribir "1. Herramientas Manuales"Escribir "2. Herramientas Eléctricas"Escribir "3. Equipos de Protección Personal (EPP)"Escribir "4. Materiales de Construcción"Escribir "5. Suministros de Fontanería y Electricidad"Escribir "6. Productos Químicos y Adhesivos"Escribir "7. Maquinaria Industrial"Escribir "8. Herrajes y Accesorios"Leer Men2Hasta Que Men2 = 1 o Men2 = 2 o Men2 = 3 o Men2 = 4 o Men2 = 5 o Men2 = 6 o Men2 = 7 o Men2 = 8Si Men2 = 1 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" HerMan[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +11000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Martillo"M = M +1a1 = a1 -1FinSiSi Opc = 2 EntoncesTotal = Total +6000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Destornillador"M = M +1b = b -1FinSiSi Opc = 3 EntoncesTotal = Total +9000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Llave Inglesa"M = M +1c = c -1FinSiSi Opc = 4 EntoncesTotal = Total +7000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Alicate"M = M +1d= d -1FinSiSi Opc = 5 EntoncesTotal = Total +80000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Sierra"M = M +1e = e -1FinSiFinSiSi Men2 = 2 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" HerEle[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +60000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Taladro"M = M +1f = f -1FinSiSi Opc = 2 EntoncesTotal = Total +130000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Sierra Electrica"M = M +1g = g -1FinSiSi Opc = 3 EntoncesTotal = Total +55000Escribir "El Total A Pagar Es $" TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Lijadora"M = M +1h = h -1FinSiSi Opc = 4 EntoncesTotal = Total +45000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Amoladora"M = M +1i = i -1FinSiSi Opc = 5 EntoncesTotal = Total +110000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Taladro De Percutor"M = M +1j = j -1FinSiFinSiSi Men2 = 3 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" EPP[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +5000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Casco"M = M +1k = k -1FinSiSi Opc = 2 EntoncesTotal = Total +2500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Guantes De Seguridad"M = M +1l = l -1FinSiSi Opc = 3 EntoncesTotal = Total +2500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Gafas Protectoras"M = M +1m1 = m1 -1FinSiSi Opc = 4 EntoncesTotal = Total +40000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Calzado De Seguridad"M = M +1n1 = n1 -1FinSiSi Opc = 5 EntoncesTotal = Total +2500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Chaleco Reflectante"M = M +1ñ = ñ -1FinSiFinSiSi Men2 = 4 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" MatCon[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +10000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Cemento"M = M +1o1 = o1 -1FinSiSi Opc = 2 EntoncesTotal = Total +15000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Yeso"M = M +1p = p -1FinSiSi Opc = 3 EntoncesTotal = Total +1000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Ladrillos"M = M +1q = q -1FinSiSi Opc = 4 EntoncesTotal = Total +1500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Bloque De Concreto"M = M +1r = r -1FinSiSi Opc = 5 EntoncesTotal = Total +2500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Varilla De Refuerzo"M = M +1 s = s -1FinSiFinSiSi Men2 = 5 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" SFE[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +1500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Tuberia PVC"M = M +1t1 = t1 -1FinSiSi Opc = 2 EntoncesTotal = Total +3500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Accesorio De Fontaneria"M = M +1u = u -1FinSiSi Opc = 3 EntoncesTotal = Total +50000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Cables Electricos"M = M +1v = v -1FinSiSi Opc = 4 EntoncesTotal = Total +1500Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Interruptores"M = M +1w = w -1FinSiSi Opc = 5 EntoncesTotal = Total +5000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Enchufes"M = M +1x = x -1FinSiFinSiSi Men2 = 6 Entonces Borrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" PQA[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +10000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Pintura Industrial"M = M +1y1 = y1 -1FinSiSi Opc = 2 EntoncesTotal = Total +12000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Selladores"M = M +1z = z -1FinSiSi Opc = 3 EntoncesTotal = Total +8000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Lubricantes Industriales"M = M +1aa = aa -1FinSiSi Opc = 4 EntoncesTotal = Total +15000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Silicona"M = M +1ab = ab -1FinSiSi Opc = 5 EntoncesTotal = Total +9000Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Adhesivos Epoxi"M = M +1ac = ac -1FinSiFinSiSi Men2 = 7 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" MaqInd[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +163980Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Compresores De Aire"M = M +1ad = ad -1FinSiSi Opc = 2 EntoncesTotal = Total +441262Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Generadores Eléctricos"M = M +1ae = ae -1FinSiSi Opc = 3 EntoncesTotal = Total +1009999Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Equipo De Soldaduras"M = M +1af = af -1FinSiSi Opc = 4 EntoncesTotal = Total +459804Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Máquinas De Limpieza"M = M +1ag = ag -1FinSiSi Opc = 5 EntoncesTotal = Total +1750824Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Elevadores De Carga"M = M +1ah = ah -1FinSiFinSiSi Men2 = 8 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" HA[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesTotal = Total +5349Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Bisagras Industriales"M = M +1ai = ai -1FinSiSi Opc = 2 EntoncesTotal = Total +79996Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Cerraduras De Alta Seguridad"M = M +1aj = aj -1FinSiSi Opc = 3 EntoncesTotal = Total +3100Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Tornillería Especializada"M = M +1ak = ak -1FinSiSi Opc = 4 EntoncesTotal = Total +38300Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Rieles Para Puertas Corredizas"M = M +1al = al -1FinSiSi Opc = 5 EntoncesTotal = Total +34999Escribir "El Total A Pagar Es " TotalEscribir "Presione ENTER Para Continuar"Leer aFAC[M] <- "Sistemas De Almacenamiento"M = M +1am = am -1FinSiFinSi2:Escribir "****** Generar Factura ******"Escribir "Ingrese El Codigo De La Factura"Leer Fac5Escribir ""Escribir "Ingrese La Fecha"Leer Fac1Escribir "Ingrese La Hora"Leer Fac2Escribir "Ingrese El Número De Cuenta (Ejempllo 1234-1234-1234-1234)"Leer Fac3Escribir "Nombre Del Cliente"Leer Fac4Esperar 1 SegundoEscribir "Generando" Esperar 3 Segundos3:Escribir"" a1 " Martillos"Escribir"" b " Destornilladores"Escribir"" c " Llaves Inglesas"Escribir"" d " Alicates"Escribir"" e " Sierras"Escribir"" f " Taladros"Escribir"" g " Sierras Electricas"Escribir"" h " Lijadoras"Escribir"" i " Amoladoras"Escribir"" j " Taladros De Percutor"Escribir"" k " Cascos"Escribir"" l " Guantes De Seguridad"Escribir"" m1 " Gafas Protectoras"Escribir"" n1 " Calzado De Seguridad"Escribir"" ñ " Chalecos Reflectantes"Escribir"" o1 " Cemento"Escribir"" p " Yeso"Escribir"" q " Ladrillos"Escribir"" r " Bloques De Concreto"Escribir"" s " Varillas De Refuerzo"Escribir"" t " Tuberías PVC"Escribir"" u " Accesorio De Fontaneria"Escribir"" v " Cables Eléctricos"Escribir"" w " Interruptores"Escribir"" x " Enchufes"Escribir"" y1 " Pinturas Industriales"Escribir"" z " Selladores"Escribir"" aa " Lubricantes Industriales"Escribir"" ab " Silicona"Escribir"" ac " Adhesivos Epoxi" Escribir"" ad " Compresores De Aire"Escribir"" ae " Generadores Electricos"Escribir"" af " Equipos De Soldadura"Escribir"" ag " Maquinas De Limpieza"Escribir"" ah " Elevadores DE Carga"Escribir"" ai " Bisagras Industriales"Escribir"" aj " Cerraduras De Alta Seguridad"Escribir"" ak " Tornilleria Especialiazada"Escribir"" al " Rieles Para Puertas Corredizas"Escribir"" am " Sistemas De Almacenamiento"Escribir "Presione ENTER para continuar"Esperar Tecla4:Escribir "Que Tipo De Producto Quiere Agregar"RepetirN<-1Borrar PantallaEscribir "1. Herramientas Manuales"Escribir "2. Herramientas Eléctricas"Escribir "3. Equipos de Protección Personal (EPP)"Escribir "4. Materiales de Construcción"Escribir "5. Suministros de Fontanería y Electricidad"Escribir "6. Productos Químicos y Adhesivos"Escribir "7. Maquinaria Industrial"Escribir "8. Herrajes y Accesorios"Leer Men2Hasta Que Men2 = 1 o Men2 = 2 o Men2 = 3 o Men2 = 4 o Men2 = 5 o Men2 = 6 o Men2 = 7 o Men2 = 8Si Men2 = 1 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" HerMan[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Inga1 = a1 + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingb = b + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingc = c + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingd = d + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Inge = e + IngFinSiFinsiSi Men2 = 2 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" HerEle[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingf = f + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingg = g + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingh = h + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingi = i + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingj = j + IngFinSiFinsiSi Men2 = 3 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" EPP[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingk = k + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingl = l + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingm1 = m1 + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingn1 = n1 + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingñ = ñ + IngFinSiFinsiSi Men2 = 4 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" MatCon[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingo1 = o1 + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingp = p + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingq = q + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingr = r + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ings = s + IngFinSiFinsiSi Men2 = 5 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" SFE[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingt1 = t1 + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingu = u + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingv = v + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingw = w + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingx = x + IngFinSiFinsiSi Men2 = 6 Entonces Borrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" PQA[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingy1 = y1 + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingz = z + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingaa = aa + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingab = ab + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingac = ac + IngFinSiFinsiSi Men2 = 7 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" MaqInd[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingad = ad + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingae = ae + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingaf = af + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingag = ag + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingah = ah + IngFinSiFinsiSi Men2 = 8 EntoncesBorrar PantallaPara i <- 1 Hasta 5 Con Paso 1 HacerEscribir "" HA[N]Escribir ""N = N +1FinParaLeer OpcSi Opc = 1 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingai = ai + IngFinSiSi Opc = 2 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingaj = aj + IngFinSiSi Opc = 3 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingak = ak + IngFinSiSi Opc = 4 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingal = al + IngFinSiSi Opc = 5 EntoncesEscribir "¿Cuanta Cantidad Quiere Ingresar?"Leer Ingam = am + IngFinSiFinsi5:Esperar 1 SegundoEscribir "Codigo De Factura: " Fac5Escribir "Fecha: " Fac1Escribir "Horario: " Fac2Escribir ""Escribir "Detalle Del Cliente:"Escribir ""Escribir "Numero De Cuenta: " Fac3Escribir "Nombre: " Fac4Escribir "Total A Pagar $" TotalEscribir ""Escribir "Lista De Productos"M <- 1Para i <-1 Hasta 100 Con Paso 1 HacerEscribir "" FAC[M]M = M+1FinparaEsperar 10 SegundosFinSegunHasta Que Men1 = 6FinAlgoritmo