Задачи Pascal, нужна помощь!

Question

Нужно срочно решение этих задач, кому не сложно или кто не занят помогите пожалуйста, буду очень благодарен! 
Pascal:

1)найти среднее арифметическое элементов Aij, лежащих выше и ниже главной диагонали матрицы, для которых выполняется условие Aij<Aij<Aij. Найти также сумму элементов каждого столбца. Pascal

2)Для матрицы из 3 столбцов и 10 строк отпечатать сумму элементов каждой строки, для которой значение этой суммы оказалось больше заданной величины, но меньше другой заданной величины, и число таких строк.

3)Для одномерных одинаковой длины массивов X и Z и коэффициентов A,B,C,D найти значения функции по формуле:
Yk=AXk+B/CZk+D

Мне нужны программы данных задач на PascalABC

Виталий Логвиненко · Accepted Answer

1. Не существует такого числа, для которого оно меньше себя. Число по определению равно самому себе.