4_21

algoritmo "4_21"

      declare n, i, t, aux:inteiro;
      escreva("Informe um número inteiro: ");
      leia(n);
      aux <- n;
      i <- 1;
      t <- 0;
      enquanto (i <= n) faca
               se ((resto(n, i) == 0) E (i != aux)) entao
                  escreval(i);
                  t <- t + i;
               fimse
               i <- i + 1;
      fimenquanto
      se (t == n) entao
         escreval("Número perfeito. ");
      senao
           escreval("Número não perfeito. ");
      fimse
fimalgoritmo