помогите пожалуйста решить инфу

program Quadratic_equation;vara,b,c,D,x1,x2:real;beginwriteln('ax^2+bx+c=0,a <>0');writeln('Укажите коэффициенты a,b и c');write('a=');readln(a);write('b=');readln(b);write('c=');readln(c);D:=sqr(b)-4*a*c;if D<0 thenbeginwriteln('Корней в данном уравнение нет')endelsebeginif D=0 thenbeginwriteln('x=',-b/(2*a))endelsebeginx1:=(-b+sqrt(D))/(2*a);x2:=(-b-sqrt(D))/(2*a);writeln('x1=',x1);writeln('x2=',x2);end;end;end.