Ребята, мне нужна Тема:программирование линейных алгоритмов . Нужно составить модуль для программы номер 3. И сложение 2 чисел. Буду очень благодарен

Var a: array [1..5, 1..5] of integer;
    i, m, j: integer;
begin
     for i := 1 to 5 do
         for j := 1 to 5 do
         begin
              a[i, j] := random(50) - 25;
              writeln('[', i, ',', j, '] => ', a[i, j]);
         end;

     for i := 1 to 5 do
         for j := 1 to 5 do
             if (a[i, j] mod 2 = 0) then a[i, j] := 30;

     writeln();

     for i := 1 to 5 do
         for j := 1 to 5 do
              writeln('[', i, ',', j, '] => ', a[i, j]);
end.

Для второго не понял, как решать ._.

При измерении объемов информации есть определенные нюансы отличающие это измерение от привычных литров и килограммов. Так, чтобы зашифровать символ в популярной кодировке потребуется 8 сигналов (каждый из которых 1 или 0). Отдельно один этот сигнал будет называться бит. А одна такая последовательность, кодирующая один символ будет называться байт. Значит в 1 байте содержится 8 бит. 
Далее в каждой большей единице содержится 1024 меньшие единицы. 
Так,
в 1 кб содержится 1024 байт= 8192 бит
в 1 мб содержится 1024 кб = 1048576 байт = 8388608 бит
в 1 гб  содержится 1024 мб = 1048576 кб = 1073741824 байт = 8589934592 бит