```Algoritmo "Sistema de vendas"

Var
   valor1, valor2,totalCompra,valorParcelas,quantParcelas,valorJuros,compraJuros,valorTotalJuros:real
   formaPagamento,valorBandeira:caractere

Inicio

   escreval ("----------------------------------------------------------")
   escreval ("--------------------Sistema de vendas---------------------")
   escreval ("----------------------------------------------------------")
   escreval

   escreval ("Digite o primeiro valor em R$:")
   leia (valor1)
   escreval ("Digite o segundo valor em R$:")
   leia (valor2)
   totalCompra:= valor1+valor2
   escreval

   escreval ("----------------------------------------------------------")
   escreval ("--------------------Formas de pagamento-------------------")
   escreval ("----------------------------------------------------------")

   escreval ("Crédito")
   escreval ("Debito")
   escreval ("Dinheiro")
   escreval

   escreval("Que forma de pagamento deseja utilizar?")
   leia (formaPagamento)

   escolha formaPagamento

   caso "Crédito"
      valorJuros:= (12/100)
      compraJuros:= (valorJuros * totalCompra)
      valorTotalJuros:= (compraJuros + totalCompra)
      escreval
      escreval ("----------------------------------------------------------")
      escreval ("--------------------Bandeira dos cartões------------------")
      escreval ("----------------------------------------------------------")

      escreval ("Hiper")
      escreval ("Visa")
      escreval ("Master")
      escreval
      escreval("Com que cartão deseja pagar?")
      leia (valorBandeira)
      escreval

      se (valorBandeira = "Hiper") e (totalCompra > 200) entao
         quantParcelas:=10
         valorParcelas:= (totalCompra / quantParcelas)
         escreval("Quantidade de parcelas:",quantParcelas)
         escreval("Valor das parcelas",valorParcelas)
         escreval("Valor total:",valorTotalJuros)
      senao
         se (valorBandeira = "Visa") e (totalCompra > 200) entao
            quantParcelas:=8
            valorParcelas:= (totalCompra / quantParcelas)
            escreval("Quantidade de parcelas:",quantParcelas)
            escreval("Valor das parcelas",valorParcelas)
            escreval("Valor total:",valorTotalJuros)
         senao
            se (valorBandeira = "Master") e (totalCompra > 200) entao
               quantParcelas:=6
               valorParcelas:= (totalCompra / quantParcelas)
               escreval("Quantidade de parcelas:",quantParcelas)
               escreval("Valor das parcelas",valorParcelas)
               escreval("Valor total:",valorTotalJuros)
            senao
               escreval ("Não é possivel parcelar")
            fimse
         fimse

      fimse

   caso "Debito"
      escreval("Valor total da compra: R$",totalCompra)

   caso "Dinheiro"
      escreval("Valor total da compra: R$",totalCompra)

   fimescolha



Fimalgoritmo```