4_20

algoritmo "4_20"
      declare n, i:inteiro;
      escreva("Informe um número inteiro: ");
      leia(n);
      i <- 1;

      enquanto (i <= n) faca
               se (resto(n, i) == 0) entao
                  escreval(i);
               fimse
               i <- i + 1;
      fimenquanto
fimalgoritmo