Pascal, цыклы, массивы

[Maks://]

Помогите пожалуйста!!!
1.Дана последовательность целых чисел а1, a2, ..., а20.
Верно ли, что все элементы последовательности равны между собой?
2.Найти сумму делителей каждого из целых чисел от
50 до 70.
3.Дан двухмерный массив целых чисел.
а) Первый нечетный элемент каждой строки удвоить (предполагается, что в каждой строке есть нечетный элемент).
б) Последний нулевой элемент каждого столбца заменить
числом 100 (предполагается, что в каждом столбце есть нулевой элемент).
4.Дан двухмерный массив из 20 столбцов. Переставить в обратном порядке столбцы, расположенные между k-м и s-м столбцами (то есть с k+1-го по s–1й). Значения k и s
вводятся с клавиатуры, k < s.
5.Дан двухмерный массив из 15 строк. Вставить в него
строку из нулей после всех строк, номер которых кратен трем.

[MrVenom]

могу сделать за деревянные))