Странные вопросы и составлены не совсем грамотно. Если рассматривать все попунктно, то во всем виноват бюджет!!!
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "корней нет"
END
END IF
IF d > 0 THEN
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF
Readln(a);
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (a=b) and (b=c) then </span>
<span>write("треуг равносторонний") </span>
<span>else </span>
<span>if (a=b) or (a=c) or (b=c) then </span>
<span>write("треугольник равнобёдренный")
end</span>