Решить в паскале:

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

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.

Держи!)