3.17) Escreva um algorítmo que leia a quantidade de 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 ja dispõe e a quantidade de envelopes QE que a pessoa também ja dispõe. O algorítmo deve calcular e inofrmar quantas cartas a pessoa pode enviar.

algoritmo "Cartas"
//d-dinheiro
//pe-preço envelope
//ps-preço selo
//qsqtd d selo
//qe-qtd d envelope
//t-total d cartas p/ enviar
var
t:real
z,y,x,d,qs,qe,pe,ps:inteiro
inicio
escreval(" Carta ")
escreva ("Informe o dinheiro disponível")
leia (d)
escreva (" Informe o preço do envelope")
leia (pe)
escreva ("Informe o preço dos selos")
leia (ps)
escreva("Informe quantidade de selo")
leia (qs)
escreva ("Informe quantidade de envelope")
leia (qe)
x <- pe + ps
y <- (d div x)
se (qs > qe) entao
   z <- qe
senao
   z <- qs
fimse
t <- y + z
escreva ("A quantidade de cartas que podem ser enviadas eh ",t," cartas")
fimalgoritmo