function [p] = erg9_ask1A(r)
%example 
%>>erg9_ask1A([2,3,4])
%ans =
%     1    -9    26   -24


p=poly(r);

end

