Работа с матрицами (pascal)

[Галина002]

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

[alex_fcsm]

Первая:

const n=20;
var a:array[1..n] of integer;
    i:integer;
    f:boolean;
begin
for i:=1 to n do
  read(a[i]);
 f:=true;
for i:=2 to n do
  if a[i]<>a[i-1] then f:=false;
writeln(f);
end.

Вторая:

uses crt;
var    i,j,sum:integer;
begin
clrscr;
for i:=50 to 70 do
 begin
  sum:=0;
    write(i,'-->(');
   for j:=1 to i do
    if i mod j =0 then begin
                        sum:=sum+j;
                        write('+',j);
                       end;
    writeln(')',sum);
 end;
end.

From Stilet: Если есть возможность, луче добавляй редактированием в свой предидущий пост если он последний.