как решить квадратное неравенство в паскале

program primer;
var a,b,c,x1,x2:real;
begin
writeln('вводим a,b,c');
readln(a,b,c);
x1:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
x2:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
if (x1>0) and (x2>0) then writeln('x1=',x1,' x2=',x2);
if (x1>0) and (x2<0) then writeln('x1=',x1);
if (x1<0) and (x2>0) then writeln('x2=',x2);
if (x1<0) and (x2<0) then writeln('решения нету');
end.

Вообщето вариантов много в сети, и самому немешало бы подумать.
Вот один из примеров кода:
var a, b, c, x1, x2, min, max, d: real;
begin
writeln('Введите коэффиценты квадратного неравенства:');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d<0
 then
  if a<0
   then writeln('Решения нет!');
   else writeln('Решение на всей области определения!');
if d=0
 then
  if a>0
   then writeln('Решение на всей области определения!');
   else writeln('x = ', -b/(2*a));
if d>0
 then
  begin
   x1:= (-b+sqrt(d))/(2*a);
   x2:= (-b-sqrt(d))/(2*a);
   if x1<x2
    then
     begin
      min:= x1;
      max:= x2;
     end;
    else
     begin
      min:= x2;
      max:= x1;
     end;
   if a>0
    then writeln('(-беск; ', min, ') U (', max, '; +беск)');
    else writeln('(', min, '; ', max, ')');
  end;
end.

не забывайте про лучший ответ