Bilheteria em VISUALG sem testar ainda

Algoritmo "bilheteria"

Var
   idade, desconto, preco:inteiro
Inicio
   preco <- 10
   Escreva("Qual é sua idade? ")
   leia(idade)

   Se idade <8 entao
      desconto <- 100
   senao
      se idade > 65 entao
         desconto <- 50
      senao
         se (idade >7) e (idade<16) entao
            desconto <- 25
         fimse
      fimse
   fimse
 
   Escreval("O Preço do bilhete: ", preco)
   Escreval("A sua idade: ", idade)
   Escreval("O seu desconto: ", desconto, "%")
   Escreval("O valor a pagar: ", (preco - (preco*desconto)/100))

Fimalgoritmo

----------------------------------

Algoritmo "Bilheteira com menu"
// Disciplina  :  [Linguagem e Lógica de Programação] V
Var
   // Seção de Declarações das variáveis
   preco_base: inteiro
   opcao: inteiro
   desconto: inteiro
   preco_final: real

inicio

   preco_base <- 10
   Escreval("--------- Bilheteira -----------")
   Escreval("Para idade até aos 6 escolha: 1")
   Escreval("Para idade dos 7 aos 14 escolha: 2")
   Escreval("Para idade dos 15 aos 64 escolha: 3")
   Escreval("Para idade superior a 64 escolha: 4")
   Escreval("Para sair escolha: 5")
   escreval("----------------------------------")
   escreval
   escreva("Qual é a sua opção? ")
   leia(opcao)
   escolha opcao
   caso 1
      desconto <- 100
   caso 2
      desconto <- 25
   caso 3
      desconto <- 0
   caso 4
      desconto <- 50
   caso 5
      interrompa
   fimescolha
   preco_final <- preco_base - (preco_base * desconto)/100

   Escreval("--------- Fatura -----------")
   Escreval("Preco do bilhete: ", preco_base, " Euros")
   Escreval("Desconto: ", desconto, "%")
   Escreval("Valor a pagar: ", preco_final, " Euros")
   escreval("----------------------------------")

Fimalgoritmo