Даны три матрицы размерностью 4*4.Найдите сумму матриц

sum:=0; for i:=1 to 4 do for j:=1 to 4 do if mass[i,j] < 0 then sum:=sum+mass[i,j];