function y = Division_Sintetica (a, s)

n = length(a);
b = zeros(1,n);
 
b(n) = a(n);
 

for k= n-1: -1: 1
    b(k) = a(k) - b(k+1) * s;
end;

disp('residuo ');
disp(b(1));

y = b(2:n);