ex 1 - lista 3

algoritmo "semnome"
// Função :
// Autor :
// Data : 21/03/2018
// Seção de Declarações
var
 quant,preco:inteiro
 p:caractere
inicio

  escreval ("Informe o produto (a,b,c ou d): ")
  leia (p)
  escreva ("Informe a quantidade: ")
  leia (quant)
    escolha p
      caso "a"
         preco <- 10*quant
       escreva ("Preço : ",preco)
      caso "b"
         preco <- 8*quant
       escreva ("Preço : ",preco)
      caso "c"
         preco <- 12*quant
       escreva ("Preço : ",preco)
      caso "d"
         preco <- 6*quant
       escreva ("Preço : ",preco)
      outrocaso
         escreva("Produto inexistente!")
    fimescolha
fimalgoritmo