помогите решить задачи

Первая
const
N = 10 { например }
var
sum: integer;
i, j: integer;
b: array [1..N,1..N] of integer;
begin
{ тут ввести значения в матрицу }
sum := 0;
for i := 1 to N do
for j := 1 to N do begin
if (i = j) then begin
sum := sum + B[i,j];
if (i <> 1) then
sum := sum + B[i,j - 1];
end;
end;
end;
end.

Вторая
function f(u, t: integer):integer;
var
result: integer;
begin
if (u >= 0) then
result := u + 2 * t
if (u <= -1) then
result := u + t
if ((-1 < u) and (u < 0)) then
result := sqr(u) = 2 * t + 1
f := result;
end;

var
x, y, a, b: real;
z: real;
begin
x := 2.31; y := 4.2; a := 3,1; b := 0.02;
z = f(sqrt(abs(x)), y) + f(a, b) + f(sqrt(abs(x)) + 1, -y) + f(abs(x) - abs(y), x) + f(x + y, a + b);
write('Для варианта а) Z-сумма равна: ', z);
{ потом тоже самое, только присвоть новые значения }
end.

Третья
var
A: array [1..10,1..20] of integer;
B: array [1..15,1..10) of integer;
sumA, sumB: integer;
i, j: integer;
begin
{ ввести значения в матрицы }
for i := 1 to 10 do
for j := 1 to 20 do begin
if(A[i,j] > 0) then
sumA := sumA + A[i,j]
end;
{аналогично для второй матрицы}
end;

С точки зрения языка программирования я бы тебе помог - а вот с точки зрения как таковой математики - я не знаток...

Уууууу! Труба! Пошёл с балкона прыгать!:)