Algoritmo "Exercício 13.1"

Algoritmo "Exercício 13.1"

Var    i, k:inteiro

Inicio

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

Fimalgoritmo