Составить программу для вычисления квадратного уравнения x2+2x-3

var a,b,c,d,x1,x2: real;

begin
writeln('Введите коэффициенты a,b,c:');
readln(a,b,c);
d:=(sqr(b))-(4*a*c);
if d>0 then begin
x1:=(-b+(sqrt(d)))/(2*a);
x2:=(-b-(sqrt(d)))/(2*a);
writeln('');
writeln('x1= ',x1);
writeln('x2= ',x2);
end;
if d=0 then begin
x1:=(-b/2*a);
writeln('x= ',x1);
end;
if d<0 then writeln('Корней нет!');
end.