function [p,f] = Erg9_ask1B(r)
%example
% [p,px]=Erg9_ask1B([2,3,4])
%  p =
%     1    -9    26   -24
%  px =
%    -60

p=poly(r);
f=polyval(p,-1);

end

