Дискриминант

[FluGeRRR]

var
a, b, c, D:integer;
x1, x2:double;

Begin
writeln('Введите a, b, c через пробел');
read(a, b, c);
D := b*b - 4 *a *c;
if (D < 0) then
begin
writeln('Корней нет, D меньше 0');
exit;
end else if (D = 0) then
begin
writeln('D = 0, количество корней: 1');
writeln('x = '+ (-1 * b)/(2*a));
exit;
end else
begin
x1:= (-1 * b)+ sqrt(D);
x2:= (-1 * b)- sqrt(D);
writeln('x1 = '+ x1/(2*a));
writeln('x2 = '+ x2/(2*a));
exit;
end;
end.