float t, conc, meia_vida, conc_minima

mostre "Digite a concentração inicial, a meia-vida e a concentração mínima:"
t <- 0
leia conc
leia meia_vida
leia conc_minima

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

mostre t, " -- ", conc