Решить в паскале :
Написать программу решения квадратного уравнения

Program QuadraticEquation;
  Var a, b, c, d, x1, x2:real;
Begin
      Writeln(vvedite a, b, c);
      Readln(a,b,c);
      If A=0 then
           Writeln(algoritm ne primenim);
      D:=b*b-4*a*c;
      If Dlt;0 then
           Writeln(deystvit resheniy net);
      If D=0 then
           Begin
                  x1:=-b/(2*a);
                  Writeln(x1=,x1);
           End
      Else
           Begin
                  x1:=(-b+sqrt(D))/(2*a);
                  x2:=(-b-sqrt(D))/(2*a);
                  Writeln(x1=,x1, x2=, x2);
           End;
end.
               Держи!)