Question

по заданным коэффициентам найти корни уравнения если D>0)) ПРОГРАММА ПАСКАЛЬ) помогите решить,плииз)))уравнение квадратное 

Answer 1

var a,b,c,d,x1,x2:real;
begin;
readln(a);
readln(b);
readln(c);
d:=sqr(b)-4*a*c;
if d>0 then
begin;
   x1:=(-b+sqrt(d))/(2*a);
   x2:=(-b-sqrt(d))/(2*a);
   writeln('x1=',x1);
   writeln('x2=',x2);
end;
if d=0 then
begin;
  x1:=-b/(2*a);
  writeln('x1=',x1);
end;
if d<0 then writeln('Нет действительных решений');
end.

Answer 2

спасибо__