AlexandroReis

algoritmo "Contagem_Inteligente"
// Função: Fazer uma contagem
// Autor :Alexandro dos Santos Reis
// Data : 06/05/2018
// Seção de Declarações
var
i,f:inteiro
inicio
// Seção de Comandos
escreval("                    CONTAGEM INTELIGENTE")
escreval("--------------------------------------------------------------------")

escreva("Inicio:")
leia(i)
escreva("Fim:")
leia(f)
escreval

se(f>i)então
escrevaL("                              CONTANDO")
escreval("--------------------------------------------------------------------")
   enquanto i<=f faca


      escreva(i,"..")


      i<-i+1

   fimenquanto


senao
escreval("                              CONTANDO")
escreval
escreval("--------------------------------------------------------------------")
   enquanto i>=f faca


      escreva(i,"..")

      i<-i-1

   fimenquanto

fimse