Составить программу. Определить, пересекаются ли линии 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 < 0) then

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.