Программирование. Решение задач

Нужно написать 3 программы для турбо Паскаля

1. Дана матрица А(N,M). Получите вектор X(M), равный Р-ой строке матрицы, и вектор Y(N), равный Q-му столбцу матрицы.

2. Имеется последовательность чисел а1, а2, ..., аn. Найдите сумму первых из них (считая слева направо), произведение которых не превышает заданного числа М.

3. Элементы заданной матрицы А(N; N) переписывайте построчно в одномерный массив до тех пор, пока не встретится нулевой элемент.