Помогите с задачей по программированию

program task;

var a,b,c,x1,x2,D:real;

begin

writeln('Введите соответствующие коэффициенты a,b и c квадратного уравнения ax^2 + bx + c = 0');

readln(a, b, c);

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

if (D > 0) then begin

x1 := (-b + sqrt(D))/(2*a);

x2 := (-b - sqrt(D))/(2*a);

writeln('x1 = ', x1, 'x2 = ',x2);

end

else if (D = 0) then begin

x1 := (-b + sqrt(D))/(2*a);

writeln('x1 = x2 = ', x1);

end

else writeln('Корней нет');

end.