Очень срочно нужно. в двумерном массиве размерности NxN найти сумму положительных элементов на главной диагонали
For N:= 1 to 10 do if mas[N,N]> 0 then s:=s+mas[N,N];