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

Program Quadratic_equation;var
a,b,c,D,x1,x2:real;beginwriteln(ax^2+bx+c=0,a lt;gt;0);
writeln(Укажите коэффициенты a,b и c);write(a=);readln(a);
write(b=);readln(b);
write(c=);readln(c);D:=sqr(b)-4*a*c;if Dlt;0 then
begin
writeln(Корней в данном уравнение нет)
endelse
begin
if D=0 then
begin
writeln(x=,-b/(2*a))
end
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=
(-b-sqrt(D))/(2*a);
writeln(x1=,x1);
writeln(x2=,x2);
end;
end;
end.