Помогите с программой Паскаль!!!!

Question

Что тут не так? выдает ошибку :» Ошибка: неверная вещественная операция (Program1.pas, строка 7)
program Korni; 
var a,b,c,x,x1,x2,D:real; 
begin 
writeln('Введите числа:'); 
read (a,b,c); 
D:= sqr(b)-4*a*c; 
x1:= (-b + sqrt(D))/2*a; 
x2:= (-b - sqrt(D))/2*a; 
writeln(Корни уравнения:',x1,x2); 
end.

bezumnyi_tapok_2 · Accepted Answer

program Korni; 
var a,b,c,x,x1,x2,D:real; 
begin 
writeln('Введите числа:'); 
read (a,b,c); 
D:= sqr(b)-4*a*c; 
x1:= (-b + sqrt(D))/(2*a); 
x2:= (-b - sqrt(D))/(2*a); 
writeln('Корни уравнения:', x1, x2); 
end.

orakul_38 · Answer

Корень из отрицательного числа очевидно не проверяется