algoritmo "semnome"

var
n100a,n100b,valor100,n50a,n50b,valor50,n10a,n10b,valor10,n5a,n5b,valor5,n1a:real
valor:inteiro

inicio
      escreval ("digite o valor")
      leia (valor)
      
      Se (valor>=100) entao
         n100a<-(valor\100)
         n100b<-(n100a*100)
         valor100<-(valor-n100b)

         n50a<-(valor100\50)
         n50b<-(n50a*50)
         valor50<-(valor100-n50b)
         
         n10a<-(valor50\10)
         n10b<-(n10a*10)
         valor10<-(valor50-n10b)
         
         n5a<-(valor10\5)
         n5b<-(n5a*5)
         valor5<-(valor10-n5b)
         
         n1a<-(valor5\1)

         escreval ("A quantidade de notas de 100 reais é:", n100a)
         escreval ("A quantidade de notas de  50 reais é:", n50a)
         escreval ("A quantidade de notas de  10 reais é:", n10a)
         escreval ("A quantidade de notas de   5 reais é:", n5a)
         escreval ("A quantidade de notas de   1 real  é:", n1a)
      fimse



fimalgoritmo