Помогите написать программу...На языке паскаль

[sher_man]

В массиве вещественных чисел найти тройки элементов, при рассмотрении которых в качестве коэфициентов квадратного трехчлена, можно получить наиболее удалённые друг от друга корни...

[Plague]

Дано
a*x^2 + b*x + c = 0

Дискриминант
D = b^2 - 4*a*c

Корни
x1 = (-b-корень(D))/(2*a);
x2 = (-b+корень(D))/(2*a);

Растояние
r=|x1-x2|
подставим x1 и x2
r=|-корень(D)/a| или корень(D)/|a|
Т.О.
Нужно найти такие три числа
чтобы D>0 и корень(D)/|a| был максимальным
Организовываем перебор.
Если в лоб, то три счетных цикла по количеству элементов массива

[sher_man]

спосибо тебе, добрый человек=)