Составить программу.Определить, пересекаются ли линии y=b* x^{2}+c*x+d и y=k*x+m.если пересекаются, найти точки пересечения.

var
  a, b, c, d, k, m: real;

begin
  readln(b, c, d, k, m);
  a := b;
  b := c - k;
  c := d - m;
  d := sqr(b) - 4 * a * c;
  if (a     writeln(Нет точек)
  else
    if (d = 0) then
      writeln((, (-1 * b + sqrt(d)) / (2 * a), ; , k * ((-1 * b + sqrt(d)) / (2 * a)) + m, ))
    else
      writeln((, (-1 * b + sqrt(d)) / (2 * a), ; , k * ((-1 * b + sqrt(d)) / (2 * a)) + m, ), (, (-1 * b - sqrt(d)) / (2 * a), ; , k * ((-1 * b - sqrt(d)) / (2 * a)) + m, ));
end.