algoritmo "SuperContador"
var
   N, cont1 : inteiro
   resp : caractere
inicio
       REPITA

      EscrevaL("================")
      EscrevaL("|     MENU     |")
      EscrevaL("================")
      EscrevaL("|[1] DE 0 A 10 |")
      EscrevaL("|[2] DE 10 A 0 |")
      EscrevaL("|[3] Sair      |")
      EscrevaL("================")

      Leia(N)
      Escolha N
              Caso 1
                   N <- 1
                   cont1 <- 0
                   Repita
                   cont1 <- cont1 + N
                   Escreva(cont1, "..")
                   Ate(cont1 = 10)

              Caso 2
                   N <- 1
                   cont1 <- 11
                   Repita
                   cont1 <- cont1 - N
                   Escreva(cont1, ".. ")
                   Ate(cont1 = 0)

              Caso 3
                   EscrevaL("SAINDO..")

              OutroCaso
                   Escreva("OPÇÃO INEXISTENTE!")

      FimEscolha

      ATE(resp = "3")
      FimRepita
fimalgoritmo