Основы программирования

Заданы три корня кубического уравнения: X1, X2, X3. Найдите коэффициенты этого уравнения.Writeln ('Пройдёт') ('Не пройдёт') ;;.Write ('Введите a: ').Коэффициент при x в степени 1.B:= - (x1+x2+x3).Листинг с комментариями.Заполняем 2 массивi:=1 to 2 doi of.Writeln ('A = 1') ; ('B = ', B:0:1) ; ('C = ', C:0:1) ; ('D = ', D:0:1).X1x2x3abcd1231-611-6= 1= - (1+2+3) = -6= 1*2+1*3+2*3 = 11= - (1*2*3) = -6.Var X1, X2, X3: Real;, B, C, D: Real; ('X1: ') ; (X1) ; ('X2: ') ; (X2) ; ('X3: ') ; (X3).