Algoritmo "Exercício 13.1"

Algoritmo "Exercício 13.1"
// Recorrendo à estrutura PARA, crie um algoritmo
// que escreva a seguinte sequência:
// 1
// 12
// 123
// 12
// 1

Var
   i, j: inteiro
Inicio
   para j de 1 ate 2 passo 1 faca
      para i de 1 ate j faca
         escreva(i)
      fimpara
      escreval
   fimpara

   para j de 3 ate 1 passo -1 faca
      para i de 1 ate j faca
         escreva(i)
      fimpara
      escreval
   fimpara

Fimalgoritmo