составить программу паскаль для нахождения корней ax^2+bx+c=0, где a, b, c - действительные​

program korni;

var

a, b, c, D: real;

begin

readln(a);

readln(b);

readln(c);

D := (b * b) - (4 * a * c);

writeln(((-1 * b) + sqrt(D)) / (2 * a));

writeln(((-1 * b) - sqrt(D)) / (2 * a));

end.