Помогите пожалуйста составить программу для решения квадратного уравнения. Срочно нужно, буду благодарна.
Ответы:
Var a,b,c,y1,y2,d,i:real,
begin
read(a,b,c),
d:=b*b-4*a*c,
if d>,0 then
begin
y1:=(-1*b+sqrt(d))/(2*a),
y2:=(-1*b-sqrt(d))/(2*a),
writeln(y1),
writeln(y2),
end else
if d=0 then
begin
y1:=(-1*b)/(2*a),
writeln(y1),
end else
writeln(Корней нет),
end.