20160411_repitaate.alg

algoritmo "20160411_repitaate"
// Função :
// Autor :
// Data : 07/04/2016
// Seção de Declarações 
var
   a : inteiro
inicio
// Seção de Comandos
   escreval("Forneça um valor inteiro")
   leia(a)
   repita
      a <- a-1
      escreval(a:1)
   ate a = 0
fimalgoritmo