4_22

algoritmo "4_22"
      n, i, t, aux, x,f:inteiro;
      escreva("Informe um número inteiro: ");
      leia(n);
      x <- 1;
      f <- 1;
      enquanto (x <= n) faca
               aux <- f;
               i <- 1;
               t <- 0;
               enquanto (i <= f) faca
                        se ((resto(f, i) == 0) E (i != aux)) entao
                        t <- t + i;
                        fimse
                        i <- i + 1;
               fimenquanto
               se (t == f) entao
                  escreval(t);
               fimse
               x <- x + 1;
               f <- f + 1;
      fimenquanto
fimalgoritmo