Простейшая прога на паскале.

[Powerstrie]

Добрый день.
Начинающий программист требует помощи.

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

Мое решение :

program sr2;
var x1,x2,x3,x4,y1, y2, y3, y4, y5: integer;
begin
Writeln ('Введите корни многочлена 4-ой степени');
readln (x1,x2,x3,x4);
y1:= 1;
y2:= -(x1+x2+x3+x4);
y3:= x1*x2+x1*x3+x1*x4+x2*x3+x2*x4+x3*x4;
y4:= x1*x2*x3+x1*x3*x4+x1*x2*x4+x2*x3*x4;
y5:= x1*x2*x3*x4;

write(4);writeLn(y1);
write(3);writeLn(y2);
write(2);writeLn(y3);
write(1);writeLn(y4);
write(0);writeln (y5);
end.

Я понимаю, что что-то здесь не так, тк пытаюсь составить уранение по этим коэффициентам, а решением этого уровнения не являются введенные корни. Помогите , пожалуйста.

[min@y™]

Проверь, всё ли правильно:

[Powerstrie]

Сообщение от min@y™

Проверь, всё ли правильно:

Спасибо, заработало.