Exercício 2.31 Hipermercado Tabajara

2.31 Para atender a todos os clientes, cada cliente poderá levar apenas um dos tipos de carne da promoção, porém não há limites para a quantidade de carne por cliente. Se compra for feita no cartão Tabajara o cliente receberá ainda um desconto de 5% sobre o total a compra. Escreva um programa que peça o tipo e a quantidade de carne comprada pelo usuário e gere um cupom fiscal, contendo as informações da compra: tipo e quantidade de carne, preço total, tipo de pagamento, valor do desconto e valor a pagar.
//O Hipermercado Tabajara está com uma promoção de carnes que é imperdível. Confira:
Até                                  5 Kg                                            Acima de 5 Kg
File Duplo                  R$ 4,90 por Kg                                R$ 5,80 por Kg
Alcatra                       R$ 5,90 por Kg                                R$ 6,80 por Kg
Picanha                      R$ 6,90 por Kg                                R$ 7,80 por Kg

Algoritmo "EXERCICIO2.31"
// Disciplina : ALGORITMOS

Var
// Seção de Declarações das variáveis
OPCAO,TIPOCARNE,FORMPAG,TIPPAG:CARACTER
QTDCARNE,VALORCOMPRA,DESCONTO,PRECOFINAL:REAL
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("O Hipermercado Tabajara está com uma promoção de carnes")
   ESCREVAL("Confira:")
   ESCREVALMUDACOR("AMARELO","FRENTE")
   ESCREVAL("Até 5 Kg Acima de 5 Kg")
   ESCREVAL("File Duplo R$ 4,90 por Kg R$ 5,80 por Kg")
   ESCREVAL("Alcatra R$ 5,90 por Kg R$ 6,80 por Kg")
   ESCREVAL("Picanha R$ 6,90 por Kg R$ 7,80 por Kg")
   ESCREVAL
   ESCREVAL
   ESCREVAL("QUAL O TIPO DE CARNE ESCOLHIDA?")
   ESCREVAL("DIGITE 1 - PARA FILE DUPLO")
   ESCREVAL("DIGITE 2 - PARA ALCATRA")
   ESCREVAL("DIGITE 3 - PARA PICANHA")
   LEIA(OPCAO)
   ESCOLHA OPCAO
            CASO "1"
                                 TIPOCARNE<-"FILÉ DUPLO"
                                 ESCREVAL("QUAL A QUANTIDADE DESEJADA?")
                                 LEIA(QTDCARNE)
                                 SE QTDCARNE>5 ENTAO
                                       VALORCOMPRA<-QTDCARNE*5.8
                                 SENAO
                                        VALORCOMPRA<-QTDCARNE*4.9
                                 FIMSE
            CASO "2"
                                 TIPOCARNE<-"ALCATRA"
                                 ESCREVAL("QUAL A QUANTIDADE DESEJADA?")
                                 LEIA(QTDCARNE)
                                 SE QTDCARNE>5 ENTAO
                                      VALORCOMPRA<-QTDCARNE*6.8
                                SENAO
                                      VALORCOMPRA<-QTDCARNE*5.9
                                 FIMSE
            CASO "3"
                                 TIPOCARNE<-"PICANHA"
                                 ESCREVAL("QUAL A QUANTIDADE DESEJADA?")
                                 LEIA(QTDCARNE)
                                 SE QTDCARNE>5 ENTAO
                                      VALORCOMPRA<-QTDCARNE*7.8
                                 SENAO
                                     VALORCOMPRA<-QTDCARNE*6.9
                                 FIMSE
             OUTROCASO
                               ESCREVAL("OPÇÃO INVALIDA.... VOCE DEVE ESCOLHER ENTRE 1 E 3")
   FIMESCOLHA
   ESCREVAL("QUAL A FORMA DE PAGAMENTO?")
   ESCREVAL("2 - CARTAO DE CRÉDITO")
  ESCREVAL
   ESCREVAL("QUALQUER OUTRA TECLA - PARA PAGAMENTO A VISTA")
   ESCREVAL
   LEIA(FORMPAG)
   SE FORMPAG="2" ENTAO
          DESCONTO<-VALORCOMPRA*0.05
          PRECOFINAL<-VALORCOMPRA-DESCONTO
          TIPPAG<-"CARTÃO DE CRÉDITO"
   SENAO
          PRECOFINAL<-VALORCOMPRA
          TIPPAG<-"PAGAMENTO A VISTA"
   FIMSE
   LIMPATELA
   MUDACOR("VERMELHO","FRENTE")
   ESCREVAL("ææææææææææ HIPERMERCADO TABAJARA ææææææææææ")
   ESCREVAL
   ESCREVAL("TIPO DE CARNE:.....................",TIPOCARNE)
   ESCREVAL
   ESCREVAL("A QUANTIDADE COMPRADA É:...........",QTDCARNE,"KG")
   ESCREVAL
   ESCREVAL("O VALOR TOTAL É DE:................R$",VALORCOMPRA:4:2)
   ESCREVAL
   ESCREVAL("A FORMA DE PAGAMENTO É:............",TIPPAG)
   ESCREVAL
   ESCREVAL("O VALOR DO DESCONTO É DE:..........R$",DESCONTO:4:2)
   ESCREVAL
   ESCREVAL("O VALOR A PAGAR É DE:..............R$",PRECOFINAL:4:2)
Fimalgoritmo