fumante

algoritmo "fumante"

var
quantTempo,quantCigarro,valor,calcTempo,aux,gasto:real
inicio
escreval ("Informe a quantidade de anos que fuma")
leia (quantTempo)
escreval ("Informe quantas carteiras de cigarro você fuma por dia")
leia (quantCigarro)
escreval ("Informe a valor da Carteira de cigarro")
leia (valor)
calcTempo<-(quantTempo*365)
aux<- (quantCigarro * calcTempo)
gasto<-(aux*valor)
escreval ("Valor  gasto com cigarro",gasto)
fimalgoritmo