Помогите! Turbo Pascal.

Question

program uravnenie_1; 
const y=0; 
var a,b,c,x1,x2,D:real; 
begin 
 writeln ('Ââåäèòå a'); 
 readln (a); 
 writeln ('Ââåäèòå b'); 
 readln (b); 
 writeln ('Ââåäèòå c'); 
 readln (c); 
 D:=b*b-4*a*c; 
 if (D)<0 then writeln ('Íåò êîðíåé'); 
 x1:=(-b+sqrt(D))/(2*a); 
 x2:=(-b-sqrt(D))/(2*a); 
 writeln ('x1=',x1); 
 write ('x2=',x2); 
 
end. 
 
Извините, при копировании плохо отобразились русские буквы. 
Я делаю программу для решения простых квадратных уравнений. Проблема в том, что когда D<0, он выдаёт ошибку "Неверная вещественная операция (noname.pas, строка 13)", хотя по моему сценарию должно выводиться "Нет корней". 
 Что делать? На правильность вычислений это не влияет, но всё-таки хотелось-бы, чтобы программа работала корректно. Помогите, пожалуйста.)

Катя Родина · Accepted Answer

program uravnenie_1; 
cоnst y=0; 
var a,b,c,x1,x2,D:real; 
begin 
write ('Ââåäèòå a'); 
readln (a); 
write ('Ââåäèòå b'); 
readln (b); 
write ('Ââåäèòå c'); 
readln (c); 
D:=b*b-4*a*c; 
if (D)<0 then writeln ('Íåò êîðíåé') else begin 
x1:=(-b+sqrt(D))/(2*a); 
x2:=(-b-sqrt(D))/(2*a); end; 
writeln ('x1=',x1); 
write ('x2=',x2); 
readln; 
end.