Proceso Venta_de_Camisas
Definir precio,cantidad Como Real
Escribir 'Ingrese precio del producto: '
Leer precio
Escribir 'Ingrese cantidad de productos por adquirir: '
Leer cantidad
IC <- precio*cantidad
Des1 <- IC*(0.07)
Des2 <- (IC-Des1)*(0.07)
DesT <- Des1+Des2
IP <- IC-DesT
Escribir 'El Importe de compra es: ',IC
Escribir 'El Importe del primer descuento es: ',Des1
Escribir 'El Importe del segundo descuento es: ',Des2
Escribir 'El Importe del descuento total es: ',DesT
Escribir 'El importe a pagar es: ',IP
FinProceso
