написать программу в паскале . вводим два числа. компьютер должен вывести квадратное уравнение,корнями которого являются эти два числа. (использоват теорему виета)

var x1,x2,p,b:real;beginreadln(x1,x2);{Вводим два числа}p:=x1+x2;{Вычисляем значение коэффициента при х}b:=x1*x2;{Вычисляем значение свободного слагаемого}if p>0 then{Проверка на знак полученных значений и вывод уравнения, как проще сделать со знаком, увы не знаю}beginif b>0 thenwriteln('x^2-',p,'x+',b,'=0')elsewriteln('x^2-',p,'x-',abs(b),'=0');endelsebeginif b>0 thenwriteln('x^2+',abs(p),'x+',b,'=0')elsewriteln('x^2+',abs(p),'x-',abs(b),'=0');end;end.