помогите решить информатику тут вродебы про массивы или хз

Надеюсь, с языком программирования я угадал. ЗАДАНИЕ 21) Program Матрица1;vara,b,summa:integer;Matr:array[1..4, 1..4] of integer;Beginfor a:=1 to 4 dofor b:=1 to 4 doBeginWrite('Строка '+ a + ' стобец '+ b + ' равен ');Read(Matr[a,b]);if a=b  thenBeginif Matr[a,b] >= 0 then summa+=Matr[a,b];End;End;Write('Сумма положительных членов матрицы равна ', summa);End.2) Program Матрица2;vara,b,summa:integer;Matr:array[1..4, 1..4] of integer;Beginfor a:=1 to 4 dofor b:=1 to 4 doBeginMatr[a,b]:= random(-15,15);End;for a:=1 to 4 dofor b:=1 to 4 doBeginif b = 4 then writeln(Matr[a,b]) else write(Matr[a,b] + ' ');End;End.