ршити ax^2+bx+c написати формулу дискримнанту

Prog eq;
uses crt;
var a,b,c,d,x1,x2:real;

begin
clrscr;
readln ('Введите a,b,c ', a,b,c);
d=bb-4ac;
if d lt;0 then
writeln ('Реальных корней нет');
else
if a lt;gt;0 then
x1:=(-b-sqrt (d))/(2a);
writeln('Корень уравнения ',x1:5:3);
x2:=(-b+sqrt (d))/(2a);
writeln('Корень уравнения ',x2:5:3);
else
x1:=-c/b;
writeln('Корень уравнения ',x1:5:3);
endif;
readkey;
end.