Программа Вычислить корни квадратного уравнения ах2 + bх + с = 0 с заданными коэффициентами а, b и с (предполагается, что а ≠ 0

var a,c,b:integer;
    d,x1,x2,x:real;
begin
WriteLn('Введите числа в уравнение вида: ах^2+вх+с');
readln(a,b,c);
d:= sqr(b)-4*a*c;
if d>0 then
   begin
   writeln('Дискриминат имеет 2 решения');
   x1:= -b+sqrt(d)/2*a;
   x2:= -b-sqrt(d)/2*a;
   Writeln(x1,' ',x2)
   end
    else
    if d=0 then
       begin
       writeln('Дискриминат имеет 1 решение');
       x:=-b/2*a;
       Writeln(x)
       end
         else writeln('Дискриминат решений не имеет');
 
Writeln('Спасибо за внимание!!!');
end.