Como desenhar uma pirâmide de números em VisuAlg com números repetindo nas linhas - Exercícios Resolvidos de VisuAlg

Informe a quantidade de linhas da pirâmide: 6

      1 
     2 2 
    3 3 3 
   4 4 4 4 
  5 5 5 5 5 
 6 6 6 6 6 6

algoritmo "Algoritmo"
var
  // variáveis usadas na resolução do problema
  quant_linhas, contador_linhas, i, j: inteiro

inicio
  // precisamos de um contador de linhas da pirâmide
  contador_linhas <- 1

  // vamos ler a quantidade de linhas da pirâmide
  escreva("Informe a quantidade de linhas da pirâmide: ")
  leia(quant_linhas)

  // um laço PARA que começa na quantidade de linhas informada
  // pelo usuário e reduz até 0
  escreval()
  para i <- quant_linhas ate 1 passo -1 faca
    // imprimimos i espaços no início de cada linha
    para j de 1 ate i faca
      escreva(" ")
    fimpara

    // agora imprimimos o valor do contador de linhas da pirâmide
    // no final de cada linha
    para j de 1 ate contador_linhas faca
      escreva(contador_linhas," ")
    fimpara

    // pulamos para a próxima linha
    escreval()

    // e aumentamos o contador de linhas
    contador_linhas <- contador_linhas + 1
  fimpara

fimalgoritmo