Решите пожалуста задачи по Pascal

вычислить большие корни квадратных
уравнений(все корни действительные)
x^2-ax+b=0
cy^2-dy-f=0
решить спомошью Function
и пошлите пожалйста эту прогу на
mf.fallen.m7@mail.ru
зарание спосибо
Подсчитать количество 0-ых элементов для матриц A[n,m]и D[m,n]
где n<=20,m<=20(решить спомошью Procedure)
и эту прогу на тоже мыло перекиньте пожалуста.

Дорогой падший (fallen) друг!
Ну какая польза от того, что кто-то решит за тебя твои задачки?!
Не лучше ли попытаться сделать это самому?
Ведь только таким образом можно перейти из категории ламеров в разряд чайников, а затем и профи.
> зарание спосибо
Всигда пажалусто.

1)Как это большие корни ?
2)Матрицы квадратные или любые ?

Нулевые элементы считаются обычным For:
Procedure Zeros(N, M: Integer; var ZA, ZD: Integer);
Var i, j: Integer
Begin
ZA := 0;
ZD := 0;
For i := 1 to N do
For j := 1 to M do
Begin
If A[i,j] = 0 then Inc(ZA);
If D[j,i] = 0 then Inc(ZD)
End
End;
В результате ZA получает кол-во нулей в A[n,m] , а ZD - в D[m,n]
А что такое _большие_ корни я тоже не знаю...