помогите с паскалем

[Evgeniy040694]

− Найти корни квадратного уравнения A•x2 + B•x + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения неотрицателен.
Var a,b,c:integer; x1,x2,d:real;
Begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
d:=sqr(b)-(4*a*c);
x1:=(-b+sqrt(d))/(2*a);
x1:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
End.
при решении выходит - Ошибка: неверная вещественная операция (Program1.pas, строка 7)
помогите что не так

[Yuri Gendelman]

Evgeniy040694 в сообщении #883516 писал(а):

... помогите что не так

Какой у Вас знак переменной $d$?

P.S. Кстати, а где Вы вычисляете $x_2$?

[Munin]

Судя по тому, что "при решении", видимо, ввёл неправильные числа.

[Corund]

sqrt() не всякое число может переварить.

[Toucan]

Тема перемещена в Карантин.

1. Запишите формулы в соответствии с требованиями Правил форума, т.е. в $\TeX$.
Краткие инструкции можно найти здесь: topic8355.html и topic183.html.
Кроме этого, в теме Видео-пособия для начинающих форумчан можно посмотреть видео-ролик "Как записывать формулы".

2. При включении в сообщение программного кода используйте тег [cоde] или [syntаx].

После того как исправите сообщение, сообщите об этом в теме Сообщение в карантине исправлено.