algoritmo LIA;
variavel
  i: inteiro;
inicio
  i <- 100;

  enquanto (i > 1) faca
    i <- i - 1;
    escreva(i, " bottles of beer on the wall,");
    escrevaln(i, " bottles of beer.");
    escreva("Take one down and pass it around, ");
    escrevaln(i-1, " b