f(x) = 1 / 25 * (x + 5) * (x + 2) * (x - 1) * (x - 2) * (x - 3)
g = Simplify(f)
A, B, C, D, E = Root(g)
h(x) = x^(3) / 3 + 2 * x^(2) + x / 2 - 3
P_{g,h}: {Intersect[f, h]}
NulBody_g: {Root[g]}
koreny = Sequence(x(Element[P_{g,h}, i]), i, 1, Length[P_{g,h}])