program program2;
var a, b, c, d, x1, x2, x: double;
begin
println('Введите коэффициент a');
readln(a);
println('Введите коэффициент b');
readln(b);
println('Введите коэффициент c');
readln(c);
d:=b*b-4*a*c;
if d<0 then println('Корней нет')
else if d=0 then 
begin
x:=-b/2/a; println('Корень уравнения х=', x);
end
 else 
 begin
x1:=(-b+sqrt(d))/2/a;
x2:=  (-b-sqrt(d))/2/a;
println('Корни уравнения: x1=',x1, ' x2=',x2);
end
end.