function s=algoritmo1(a,x)
xk=1; s=a(1);
for i=2:length(a)
   xk=xk*x;
   s=s+a(i)*xk;
end