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

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 D<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.               Держи!)