float t, conc, meia_vida, t_max

mostre "Digite a concentração inicial, a meia-vida e o tempo para a simulação:"
t <- 0
leia conc
leia meia_vida
leia t_max

mostre "tempo -- concentração"
enquanto (t < t_max):
    mostre t, " -- ", conc
    conc <- conc / 2
    t <- t + meia_vida

mostre t, " -- ", conc