AM2 1º desafio [Mathematica Challenge]

n <- strtoi(readline('Qual o grau do polimonio?'))
a <- array(1:(n+1))

for(v in n:0)
    a[v+1] <- strtoi(readline(sprintf("Introduza um valor para o 'a' na ordem #%1$1d", v)))

x0 <- strtoi(readline('Qual o valor de x?'))


p <- a[n+1]
for(z in (n):(1))
    p <- p * x0 + a[z]


print(sprintf("O resultado é %d", p))