Program Problem3; { Программа решения квадратного уравнения }
 uses WinCrt;
 var
 a, b, c, d, x1, x2 : real;
 begin
 write('Введите коэффициенты уравнения ');
 readln(a, b, c);
 d := b*b - 4*a*c;
 if d < 0 then writeln('Уравнение не имеет корней')
 else
 if d=0
 then
 writeln('Уравнение имеет один корень ',-b/(2*a))
 else
 begin
 x1 := (-b - sqrt(d))/(2*a);
 x2 := (-b + sqrt(d))/(2*a);
 write('Уравнение имеет два различных корня ');
 writeln('x1 = ', x1, ' x2 = ', x2)
 end
 end.

---