Divisortotal

algoritmo "DIVISORTOTAL"
var
   limite, divisor , i : inteiro
inicio
   escreval ("digite o limite superior")
   leia (limite)
   escreval ("digite o numero para dividir")
   leia (divisor)
   i <- 1
   enquanto i < limite faca
      se i%divisor = 0 entao
         escreval (i,  " é divisivel por ", divisor)
      fimse
      i <- i + 1
   fimenquanto
fimalgoritmo