kleber machado dos santos

Oi, preciso de uma ajuda.
nessa linha
real dvida = cigarros*10*365/1440*ano
Na calculadora está dando certo, mas no código sai outro valor.

programa
{

inclua biblioteca Matematica –> mat
funcao inicio()
{
escreva(“{EXERCÍCIO 010 – Não fume } “+ “\n”)
escreva (“Cada cigarro reduz 10 minutos de vida”+ “\n”)
escreva (“——————————————–“+ “\n”)
inteiro anos
escreva (“Há quantos anos você fuma? “)
leia (anos)
inteiro cigarros
escreva (“Quantos cigarros você fuma por dia? “)
leia (cigarros)
escreva (“——————————————–“+ “\n”)
inteiro tcigarros = (cigarros*anos*365)
real dvida = cigarros*10*365/1440*anos
escreva (“Ao todo, até agora você já fumou “+ tcigarros+”\n” )
escreva (“estima- se que você já perdeu “+ dvida+ ” dias de vida!”)