Решение квадратного уравнения

Стандартный пример на Паскале программы, которая решает квадратное уравнение. Будет полезна начинающим программистам. Почему начинающим? Потому что программа не проверяет не равен ли нулю коэффициент a. Главный недостаток этой программы: она не обрабатывает случай, когда дискриминант d<0. Кроме того, программа не анализирует случай совпадающих корней, когда d=0. Но для школьников, которые толком не умеют решать квадратные уравнения, вполне подойдет. Если ученик седьмого класса, напишет программу со всеми перечисленными наворотами, то учитель никогда не поверит, что он ее написал сам. Поэтому совет от StudLab.com: возьмите эту программу для начала, а потом в нее допишите все необходимые проверки. Но сделайте это в классе, при учителе. Дома потренируйтесь, набросайте заготовку, а когда вам учитель укажет на недостатки программы, тут же все исправьте. Ваш учитель будет в восторге: какой умный ученик, скажет он.

Итак, приведенная ниже программа решает квадратное уравнение:

program Equation;
var a,b,c,d,x1,x2:real; begin
 writeln;
 writeln ('Введите коэффициенты a,b,c:');
 read (a,b,c);
 d:=sqr(b)-4*a*c;
 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 writeln ('Корни уравнения');
 writeln (x1:10:2,x2:10:2);
 readln; readln;
end.