function c = lab3p4(k,n)
    a = poly(1:n);
    a = a(2:end);
    S = abs(a) * (k.^[0:n-1])';
    %k.^[0:n-1] ridica la toate puterile vectorului pe k
    %' transpusa
    r = [1:k-1,k+1:n]; % lipseste k
    c = S / abs(k*prod(k-r));