Algoritmo "Exercicio"
Var
	// Seção de Declarações das variáveis
	opcao , opc_lanche, opc_acompanhamento , opc_bebida, qtd: inteiro
	valor_lanche, valor_acompanhamento , valor_bebida: real
	lanches, acompanhamento , bebidas , total: real

Inicio
	// seção de comandos, procedimento, funcões, operadores, etc...
	total <- 0
	opcao <- 0
	opc_lanche <- 0
	opc_acompanhamento <- 0
	opc_bebida <- 0
	qtd <- 0
	
	Repita
		LimpaTela
		EscrevaL ("=========== MENU =========")
		EscrevaL ("1 - Lanches")
		EscrevaL ("2 - Acompanhamentos")
		EscrevaL ("3 - Bebidas")
		EscrevaL ("0 - Finalizar seu pedido")
		EscrevaL ("Faça seu pedido agora!")
		EscrevaL ()
		Escreva ("Escolha uma opção: ")
		Leia (opcao)

		Escolha opcao
			Caso 1
				Repita
               LimpaTela
					EscrevaL ("============ LANCHES ===========")
					EscrevaL ("1 - X-Burguer.........: R$ 10,00")
					EscrevaL ("2 - X-Salada..........: R$ 12,00")
					EscrevaL ("3 - X-Calabresa.......: R$ 13,00")
					EscrevaL ("4 - X-Tudo............: R$ 15,00")
					EscrevaL ("5 - X-Frango..........: R$ 10,00")
					EscrevaL ("6 - X-Egg.............: R$ 12,00")
					EscrevaL ("7 - Hamburguer Vegano.: R$ 14,00")
					EscrevaL ("0 - Voltar ao menu anterior")
					EscrevaL ()
					Escreva ("Escolha seu lanche: ")
					Leia (opc_lanche)

					Se opc_lanche > 0 então
   					Escreva ("Informe a quantidade desse lanche: ")
   					Leia (qtd)

   					Escolha (opc_lanche)
   						Caso 1
   							valor_lanche <- valor_lanche + 10 * qtd
   						Caso 2
   							valor_lanche <- valor_lanche + 12 * qtd
   						Caso 3
   							valor_lanche <- valor_lanche + 13 * qtd
   						Caso 4
   							valor_lanche <- valor_lanche + 15 * qtd
   						Caso 5
   							valor_lanche <- valor_lanche + 10 * qtd
   						Caso 6
   							valor_lanche <- valor_lanche + 12 * qtd
   						Caso 7
   							valor_lanche <- valor_lanche + 14 * qtd
   					FimEscolha
   					
   					EscrevaL ("Pedido anotado!")
   					Timer  2000
   					Timer  0
					FimSe
				Ate opc_lanche = 0

            EscrevaL()
				EscrevaL ("...")
				EscrevaL ("Valor adicionado ao Pedido = R$ ", valor_lanche, ",00")
				EscrevaL ("...")
				lanches <- lanches + valor_lanche
				Timer  3000
				Timer  0
			Caso 2
				Repita
               LimpaTela
					EscrevaL ("======== ACOMPANHAMENTOS =======")
					EscrevaL ("1 - Batata Frita......: R$  9,00")
					EscrevaL ("2 - Salada............: R$ 10,00")
					EscrevaL ("3 - Aneis de Cebola...: R$ 12,00")
					EscrevaL ("4 - Frango no balde...: R$ 14,00")
					EscrevaL ("5 - Nachos............: R$ 10,00")
					EscrevaL ("6 - Bolinhos De Carne.: R$ 11,00")
					EscrevaL ("7 - Pastel De Queijo..: R$  6,00")
					EscrevaL ("0 - Voltar ao menu anterior")
					EscrevaL ()
					Escreva ("Escolha seu acompanhamento: ")
					Leia (opc_acompanhamento)

					Se opc_acompanhamento > 0 então
   					Escreva ("Informe a quantidade desse desse acompanhamento: ")
   					Leia (qtd)

   					Escolha (opc_acompanhamento)
   						Caso 1
   							valor_acompanhamento <- valor_acompanhamento + 9 * qtd
   						Caso 2
   							valor_acompanhamento <- valor_acompanhamento + 10 * qtd
   						Caso 3
   							valor_acompanhamento <- valor_acompanhamento + 12 * qtd
   						Caso 4
   							valor_acompanhamento <- valor_acompanhamento + 14 * qtd
   						Caso 5
   							valor_acompanhamento <- valor_acompanhamento + 10 * qtd
   						Caso 6
   							valor_acompanhamento <- valor_acompanhamento + 11 * qtd
   						Caso 7
   							valor_acompanhamento <- valor_acompanhamento + 6 * qtd
   					FimEscolha
   					
   					EscrevaL ("Pedido anotado!")
   					Timer  2000
   					Timer  0
					FimSe
				Ate opc_acompanhamento = 0

            EscrevaL()
				EscrevaL ("...")
				EscrevaL ("Valor adicionado ao Pedido = R$ ", valor_acompanhamento, ",00")
				EscrevaL ("...")
				acompanhamento <- acompanhamento + valor_acompanhamento
				Timer  3000
				Timer  0
			Caso 3
				Repita
               LimpaTela
					EscrevaL ("=========== BEBIDAS ===========")
					EscrevaL ("1 - Refrigerante.....: R$  8,00")
					EscrevaL ("2 - Agua mineral.....: R$  5,00")
					EscrevaL ("3 - Suco Natural.....: R$  5,00")
					EscrevaL ("4 - Cha..............: R$  3,00")
					EscrevaL ("5 - Milk-Shake.......: R$ 14,00")
					EscrevaL ("6 - Capuccino........: R$  6,00")
					EscrevaL ("7 - ChocalAte Quente.: R$  6,00")
					EscrevaL ("0 - Voltar ao menu anterior")
					Escreva ("Escolha sua bebida: ")
					Leia (opc_bebida)

					Se opc_bebida > 0 então
   					Escreva ("Informe a quantidade dessa bebida: ")
   					Leia (qtd)

   					Escolha (opc_bebida)
   						Caso 1
   							valor_bebida <- valor_bebida + 8 * qtd
   						Caso 2
   							valor_bebida <- valor_bebida + 5 * qtd
   						Caso 3
   							valor_bebida <- valor_bebida + 5 * qtd
   						Caso 4
   							valor_bebida <- valor_bebida + 3 * qtd
   						Caso 5
   							valor_bebida <- valor_bebida + 14 * qtd
   						Caso 6
   							valor_bebida <- valor_bebida + 6 * qtd
   						Caso 7
   							valor_bebida <- valor_bebida + 6 * qtd
   					FimEscolha

   					EscrevaL ("Pedido anotado!")
   					Timer  2000
   					Timer  0
               FimSe
				Ate opc_bebida = 0

            EscrevaL()
				EscrevaL ("...")
				EscrevaL ("Valor adicionado ao Pedido = R$ ", valor_bebida,",00")
				EscrevaL ("...")
				bebidas <- bebidas + valor_bebida
				Timer  3000
				Timer  0
				FimEscolha
	Ate opcao = 0

	LimpaTela
	total <- total + lanches + acompanhamento + bebidas
	EscrevaL ("......................................")
	EscrevaL ("O valor total do seu Pedido é R$", total, ",00")
	EscrevaL ()
	EscrevaL ("      Agredecemos sua preferência!")
	EscrevaL ("            Volte sempre!")
	EscrevaL ("......................................")
Fimalgoritmo