4_17

algoritmo "4_17"

      declare n, i, f, g:inteiro;
      escreva("Informe um número inteiro positivo: ");
      leia(g);
      i <- 0;
      f <- 1;
      n <- 1;
      enquanto (f <= g) faca
               se (i == g) entao
                  escreval("Triangular");
               fimse
               i <- i + n;
               n <- n + 1;
               f <- f + 1;
      fimenquanto
fimalgoritmo