Текст программы решения квадратного уравнения в среде Turbo Pascal 7. Сам вообще не…

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<0 Then Writeln ('Корней нет! ') ElseBeginX1: =(-B+SQRT (D) /2/A; X2: =(-B-SQRT (D) /2/A; Writeln ('X1=', X1:8:3, ' X2=',X2:8:3); End; End; End. Решение не мое, так как на составления данного кода, не хватило бы времени.