Proceso almacen

	c<-0
	suma<-0
	totalc<-0
	cm<-0
	des<-0
	descT<-0
	pc<-0
	desc<-0


	Escribir "¿Desea registrar una compra? 1:SI 2:NO"
	Leer r1

	Mientras r1="1" Hacer
		Escribir "Ingrese la identificacion del cliente:"
		Leer id
		Escribir "¿Desea registrar un producto? 1:SI 2:NO"
		Leer r2

	    Mientras r2="1" Hacer
		  Escribir "Ingrese el nombre del producto:"
		  Leer np
		  Escribir "Ingrese el código del producto:"
		  Leer codigo
		  Escribir "Ingrese el precio del producto:"
		  Leer precio
		  Escribir "Ingrese la cantidad comprada:"
		  Leer cantidad

			totalc<-totalc+(cantidad*precio)
			c<-c+1
			pc=pc+cantidad

			Si codigo=="1020"   Entonces


				desc<-totalc-25000


			Sino
				Si codigo=="1095" Entonces

					desc<-totalc-25000


				Fin Si
			Fin Si



		    descT<-totalc-desc


			Escribir "¿Desea registrar otro producto? 1:SI 2:NO"
			Leer r2
	    Fin Mientras

		suma<-suma+totalc

		Si c>3 | cantidad >3 Entonces
			cm<-cm+1

		Fin Si



		Escribir "La id del cliente es ", id
		Escribir "El cliente compro ", pc, " productos"
		Escribir "El total a pagar es ", totalc
		Escribir "Los clientes que compraron mas de 3 productos fueron ",cm
		Escribir "El cliente obtuvo ", descT," de descuento"

		Escribir "¿Desea registrar una nueva compra?"
		Leer r1



	Fin Mientras





FinProceso