График Функций

[noisor]

Решить уравнение ax^2+bx+c=0.
Формат входных данных
На вход программе подются целые числа a, b, c, по модулю не превосходящих 30000.
Формат результата
Выдать код ситуации и значение корней:
бесконечное множество решений
нет действительных корней
уравнение вырождается в линейное, выдать х
уравнение квадратное, два различных корня, выдать х1 и х2
уравнение квадратное, кратный корень, выдать Х
Примечания
Значения корней выводить в порядке возрастания с двумя знаками после десятичной точки.
Решения квадратного и линейного уравнений должны быть оформлены в виде функций!

[Вадим Вергун]

Не совсем понял вопрос но... Вот решение в абц.

program Yravnenie;

var
  a, b, c, w, D, KD, x1, x2: real;

label p;
begin
  writeln('Здраствуйте! Вас привецтвует программа по ришению квадратных уравнений. Данная программа удобна при практическом использовании т. к. выдаёт ответ в виде десятичной дроби. Приведите квадратное уравнениение к общему виду(a*x*x+b*x+c=0). И запишите через пробел числа a b c в приведеной последовательности');
  readln(a, b, c);
  w:=Milliseconds / 1000;
  D := b * b - 4 * a * c;
  if D < 0
  then begin
    write('Дискреминант отрицателен и равен ');
    write(D);
    writeln('. Следовательно уравнение не имеет корней.');
    goto p;
  end
  else begin
    write('Два корня. Дискрименант равен ');
    writeln(D);
  end;
  KD := sqrt(D);
  x1 := (-b + KD) / (2 * a);
  x2 := (-b - KD) / (2 * a);
  write('x1= ');
  writeln(x1);
  write('x2= ');
  writeln(x2);
  writeln('Свёртывание квадратного трёхчлена');
  write(a);
  write('*(x-');
  write(x1);
  write(')*(x-');
  write(x2);
  writeln(')');
  p:  write('Время работы = ', (Milliseconds / 1000)-w, ' с');
end.