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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.