Программа на паскле с процедурами

Составить программу – консольное приложение
Задание решить двумя способами:
1) с использованием подпрограммы-функции;
2) с использованием подпрограммы-процедуры;
В результате должно быть две программы.
Исходные данные вводятся с клавиатуры или получаются внутри программы с использованием генератора случайных чисел. Выбор способа получения исходных данных осуществляется с использованием меню после запуска программы на выполнение.
Заданы коэффициенты квадратных уравнений:
ax+ bx+c=0,
dx2+fx+r=0,
px2+qx+k=0.
Найти минимальное значение среди корней этих уравнений. В случае комплексных корней принять за корни действительную и мнимую части. Решение квадратного уравнения оформить в виде подпрограммы.