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.