Целочисленные корни многочлена четвертой степени

[oshibka]

Помогите, пожалуйста, написать программу, решающую задачу. То, что пишу сама, работает мягко говоря неадекватно, несмотря на то, что задача в общем детская..

Составить программу, которая запрашивает у пользователя целочисленные корни многочлена четвертой степени и, используя теорему Виета, находит его коэффициенты. Вывести результат в форме таблицы, где первая строка - степени, вторая - коэффициенты при этих степенях.

[evg_m]

Где можно увидеть

То, что пишу сама,

?

[Я_и]

Неужели так сложно вести четыре оператора типа
A1:=1;
A2:=-(X1+X2+X3);
A3:=X1*X2+X2*X3+X1*X3;
A4:=X1*X2*X3;
И сделай лучше схему Горнера - полезнее будет=) В этой программе толку никакого

[Я_и]

1.Считываешь X1,X2,X3,X4
2.
A1:=1;
A2:=-(X1+X2+X3);
A3:=X1*X2+X2*X3+X1*X3;
A4:=-X1*X2*X3;
3. Выводишь всё.... Если хочешь в столбики, пиши
write(X1,6,2);writeLn(A1,6,2);
write(X2,6,2);writeLn(A2,6,2);
write(X3,6,2);writeLn(A3,6,2);
write(X4,6,2);writeLn(A4,6,2);