real tarifa <- 0
real acum <- 0
real d

leia d

enquanto d != 0:
    se acum > 400:
        tarifa <- tarifa + 0.4 * d
    senao:
        se acum > 100:
            tarifa <- tarifa + 0.3 * d
    acum <- acum + d
    leia d

mostre "Total de minutos: ", acum
mostre "Valor a pagar: ", tarifa