p:read("Gib ein Polynom dritten Grades ein");

A:coeff(p,x,3);

B:coeff(p,x,2);

C:coeff(p,x,1);

D:coeff(p,x,0);

K:[A,B,C,D];

print("Die Koeffizienten sind",K)$