algoritmo "semnome"
   // Função :
   // Autor :
   // Data : 18/04/2012
   // Seção de Declarações

   var

   contM1, contM5, contM10, contM25, contM50, contM100: inteiro

   pagamento:inteiro
   pago:inteiro
   troco:inteiro

   n2, n5, n10, n20, n50, n100 : inteiro

   M1, M5, M10, M25, M50, M100 : inteiro

   contN2, contN5, contN10, contN20, contN50, contN100: inteiro


   inicio


   escreval ("Digite o valor do produto")
   leia(pago)

   escreval ("Digite o valor pago")
   leia(pagamento)

   se (pago > pagamento) entao
      escreval ("o valor pago é insuficiente")

   senao

      Troco <- pagamento - pago

   fimse

   enquanto troco >= 100 faca
      contN100 <- contN100 + 1
      troco <- troco - 100
   fimenquanto

   enquanto troco >= 50 faca
      contN50 <- contN50 + 1
      troco <- troco - 50
   fimenquanto

   enquanto troco >= 20 faca
      contN20 <- contN20 + 1
      troco <- troco - 20
   fimenquanto

   enquanto troco >= 10 faca
      contN10 <- contN10 + 1
      troco <- troco - 10
   fimenquanto

   enquanto troco >= 5 faca
      contN5 <- contN5 + 1
      troco <- troco - 5
   fimenquanto

   enquanto troco >= 2 faca
      contN2 <- contN2 + 1
      troco <- troco - 2
   fimenquanto

   enquanto troco >= 100 faca
      contM100 <- contM100 + 1
      troco <- troco - 100
   fimenquanto

   enquanto troco >= 50 faca
      contM50 <- contM50 + 1
      troco <- troco - 50
   fimenquanto

   enquanto troco >= 25 faca
      contM25 <- contM25 + 1
      troco <- troco - 25
   fimenquanto

   enquanto troco >= 10 faca
      contM10 <- contM10 + 1
      troco <- troco - 10

      enquanto troco >= 5 faca
         contM5 <- contM5 + 1
         troco <- troco - 5
      fimenquanto

      enquanto troco >= 1 faca
         contM1 <- contM1 + 1
         troco <- troco - 1

      fimenquanto


      escreval("São Necessárias: ")
   escreval("")
   escreval(contN2," nota(s) de 2 reais")
   escreval(contN5," nota(s) de 5 reais")
   escreval(contN10," nota(s) de 10 reais")
   escreval(contN20," nota(s) de 20 reais")
   escreval(contN50," nota(s) de 50 reais")
   escreval(contN100," nota(s) de 100 reais")
   escreval("")
   escreval(contM1," moeda(s) de 1 centavo")
   escreval(contM5," moeda(s) de 5 centavos")
   escreval(contM10," moeda(s) de 10 centavos")
   escreval(contM25," moeda(s) de 25 centavos")
   escreval(contM50," moeda(s) de 50 centavos")
   escreval(contM100," moeda(s) de 1 real")

   fimalgoritmo