С наименьшей скоростью с водой реагирует

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.