Cristiano Emilio Pontes

Queria uma opiniao sobre meu codigo… O portugol me recomendou incluir a biblioteca “tipos” na conversao inteiro para real… como poderia implementar?

programa
{

funcao inicio()
{

real ano
inteiro quant
escreva(“Cada cigarro reduz 10 minutos de vida \n”)
escreva(“—————————————– \n”)
escreva(“Ha quantos anos voce fuma? ” )
leia(ano)
escreva(“Quantos cigarros voce fuma por dia? ” )
leia(quant)
inteiro quantcig = ((quant*365)*ano)
real diavid =(((quantcig*10)/60)/24)
escreva(“Ao todo, ate agora voce ja fumou ” + quantcig + ” cigarros! \n”)
escreva(“Estima se que voce ja perdeu ” + diavid + ” dias de vida!”)

}
}