Дан одномерный массив прибавьте ко всем элементам по 1

1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

1)            находим количество пикселей, используя для вычисления степени числа 2: n  = 512 · 256 = 29  · 28  = 217 2)            объём файла в  кбайтах  64 = 26 3)            объём файла в битах  26    · 213  = 219 4)            глубина кодирования (количество битов, выделяемых на 1 пиксель): 219  :   217  = 22  = 4 бита на пиксель 5)            максимальное возможное количество  цветов 24  = 16 6)            ответ:   16.