помогите плиззз с задачей на Pascal

[rer]

помогите плизз c 2мя программами :
1 часть
Даны натуральное число n и действительные а1,...,аn, где n <=3000.получить удвоенную сумму всех положительных членов последовательности а1,...,аn.

2 часть
Даны натуральное число n и квадратная матрица порядка n целочисленных элементов , где n<=15.Вычислить сумму элемнтов главной диогонали матрицы.

P.S заранее благодарен

[PAWLO1993]

№1

Program NoName;
VAR N,I,SUM,A:LONGINT;
Begin SUM:=0;
READLN(N);
FOR I:=1 TO N DO BEGIN READLN(A);
IF A>0 THEN SUM:=SUM+A;
END;
WRITELN(SUM*2);
end.