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.
Answers & Comments
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.