Дано: a, b, c. Если а≠0, выяснить, имеет ли уравнение ax2+bx+c=0 корни. Если да – найти их и напечатать с соответствующим комментарием (например, уравнение имеет только один корень …». В противном случае напечатать «уравнение не имеет корней». Если а=0, определить какое значение больше b или c и на сколько (возможно равенство). — Pascal(Паскаль)

uses crt;
var a,b,c,x1,x2:real;
begin
clrscr;
write('enter a,b,c=');
readln(a,b,c);
d:=b*b-4*a*c;
if(d>0) then
begin
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
writeln('Уравнение имеет 2 корня');
writeln(x1,x2);
end;
if(d=0) then
begin
x1=-b/(2*a)
writeln('Уравнение имеет 1 корень');
writeln(x1);
end;
if(d<0) then write('корней нет');
if(a=0) then 
f:=b-c;
if(f>0) then write(b, 'больше', c, 'на', f);
if(f<0) then write(c, 'больше', b, 'на', f);
if(f=0) then write(b,' =', c);