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

Question

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

tvarr Профи (548), на голосовании 8 месяцев назад

Что тут не так? выдает ошибку :» Ошибка: неверная вещественная операция (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.

Answer 1

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.

Answer 2

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