17)Escreva um algoritmo que leia a quantia R$ em dinheiro que uma pessoa tem para enviar cartas, o preço PE de um envelope, o preço PS de um selo, a quantidade QS de selos que a pessoa já dispõe e a quantidade de envelopes QE que a pessoa também já dispõe. O algoritmo deve calcular e informar quantas cartas a pessoa pode enviar.

algoritmo “Quantidade de cartas enviadas”
var
  rs,pe,ps,ce:real
  qs,qe,qer,qce,qca,qsa,qea:real
inicio
   escreva(“Informe o dinheiro:”)
   leia(rs)
   escreva(“Informe o preco do envelope:”)
   leia(pe)
   escreva(“Informe o preco do selo:”)
   leia(ps)
   escreva(“Informe a quantidade de selos:”)
   leia(qs)
   escreva(“Informe o custo de envio:”)
   leia(ce)
   escreva(“Informe a quantidade de envelopes:”)
   leia(qe)
   ce<- pe+ps
   se(qe>qs) entao
     qer<-qe-qs
     se (qer*ps) <=rs entao
       rs<- rs-(qer*ps)
       qce<-qs
       qca<- rs div ce
       qce<-qce+qca
       senao
        qsa<- rs div ps
        qce<- qs+qsa
      fimse
      senao
      se (qs>qe) entao
          qer<- qs-qe
          se ((qer*pe)<= rs) entao
             rs<- rs – (qer *pe)
             qce <-qe
             qca<-rs div ce
             qce<- qce+qca
             senao
             qea <- rs div pe
             qce <- qe+qea
           fimse
           senao
              qce<-qs
              qca<-rs div ce
              qce<-qce +qca
           fimse
          fimse
       escreva(“Quantidade de cartas enviadas:”, qce)
fimalgoritmo