СРОЧНО! Дана действительная квадратная матрица порядка 4 на 4.Вычислить сумму ниже главной диагонали. Помогите пожалуйста.P.S. Желательно чтобы числа самому вводить,а не рандомно

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.

var   a: array[1..4,1..4]of integer;   i, j,s: integer; begin   s := 0;   for i := 1 to 4 do begin     for j := 1 to 4 do begin     write('a[',i,',',j,'] = ');       readln(a[i,j]);     end;   end;   for  i:=2 to  4 do    for  j:=1 to i-1 do s:=s+A[i,j];     writeln('Сумма элементов под главной диаганалью',s);   end.