ПОМОГИТЕ СРОЧНО НАДО!!!!!!!!!!
Записать в тетради программу, которая вычисляет и выводит на экран корни квадратного уравнения, либо сообщение о том, что нет корней.

program Discrt;  

var  

a,b,c: real;  

x1,x2,x,D: real;  

begin  

write ('Введите первое значение: ');  

readln (a);  

write ('Введите второе значение: ');  

readln (b);  

write ('Введите третье значение: ');  

readln (c);  

writeln;  

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);  

writeln ('x2 = ',x2);  

end;  

if D = 0 then  

begin  

x := -b/(2*a);  

writeln ('x = ',x);  

end;  

if D < 0 then  

writeln ('Нет корней!!!');  

end.