Помогите пожалуйста написать программу в Паскале для решения этого квадратного уравнения!
y=x^2-6x+10
- program example1;
var x1, x2, y1, y2: Integer;begin Writeln(‘Эта программа решает квадратное уравнение’); D:=sqr(b)-4*a*c;
If D>0 then x1:= ((-b)+sqrt(D))/2*a and x2:= ((-b)-sqrt(D))/2*a
Writeln(‘x1= ‘,d:6:2);
Writeln(‘x2= ‘,d:6:2);
Writeln(‘нажмите Enter для завершения работы программы’); end.