real x, a, e, d

leia x
leia a
leia e
d <- 0

enquanto (a != 0):
    d <- d + e*a* (x ^ (e-1))
    leia a
    if (a != 0):
        leia e

mostre d