Написать программу на паскале, которая вычислит точки пересечения двух функций.

ax^2+bx+c=yy=kx+q*ax^2+bx+c=kx+qax^2+(b — k) x+(c — q)=0 var a, b, x, k, q, D: real; begin read (a, b, x, k, q); D: =sqr (b — k) — 4*a*(c — q); if D < 0 then writeln ('Нет перечечений') elsebeginwriteln (k — b)+sqrt (D) / (2*a); writeln (k — b) — sqrt (D) / (2*a); end; end.