Найти корень уровне ни ax^2+bx+c=0

uses crt; var     d, a, b, c, x1, x2: real; begin     writeln('Введите 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('x1 = ', x1:2:2);         writeln('x2 = ', x2:2:2);     end     else if d = 0 then     begin         x1 := -b / (2 * a);         writeln('x = ', x1:2:2);     end     else         writeln('Нет действительных корней'); end.