4_13

algoritmo "4_13"
      declare n, aux, auxr, i, t:inteiro;
      i <- 1000;
      enquanto (i <= 9999) faca
               aux <- i/100;
               auxr <- resto(i, 100);
               t <- aux+auxr;
               se ((potencia(t, 2))==i) entao
                  escreval("O número:", i, " possui a força.");
               fimse
               i <- i + 1;
      fimenquanto
fimalgoritmo