Текст программы решения квадратного уравнения в среде Turbo ...

Женя

Program Sq2;Var A, B, C, D, X, X1, X2 : Real;BeginWriteln ('Введите коэффициенты уравнения (A, B, C) ');readln(a,b,c);If A=0 ThenIf B=0 ThenIf C=0 Then Writeln('X - любое число')Else Writeln('Корней нет! ')Else Begin X:=-C/B; Writeln('X=',X:8:3); EndElseBeginD:=B*B-4*A*C;If D