[yoshkin_kot]

вапщет ваши 2 проги с множеством ошибок :D
правильнее буит так:

var
a,b,c,x,x1,x2,d:real;
begin
writeln('Введи a:');
readln(a);
writeln('Введи b:');
readln(b);
writeln('Введи c:');
readln(c);
If a=0 then
begin
if b=0 then
begin
if c=0 then
begin
writeln('Бесконечное множество решений')
end
else
writeln('Уравнение не имеет смысла')
end
else
begin
x:=-c/b;
writeln('Корень уравнения равен:',x:5:2)
end;
end
else
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
writeln('Уравнение не имеет корней')
end
else
begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('Дискриминант:',d:5:2);
writeln('Первый корень уравнения равен:',x1:5:2);
writeln('Второй корень уравнения равен:',x2:5:2)
end;
end;
readln
end.