1. Вычислить корни квадратного уравнения с заданными коэффициентами а, b, с

на турбо паскале

Program sqr;

Var a, d, b, c, x1, x2:Real;

Begin

WriteLn ('Введите A, B и C') ;

ReadLn (a, b, c) ;

d:=Sqr (b) - 4*a*c;

x1: = (-b - Sqrt (d)) / (2*a) ;

x2: = (-b + Sqrt (d)) / (2*a) ;

If x1 < = x2 then

WriteLn ('X1 = ', x1,' X2 = ', x2)

else

WriteLn ('X1 = ', x2,' X2 = ', x1) ; ReadLn;

End.