В двух вложенных циклах последовательно перебирая каждый элемент добавлять к сумме, перед циклами надо обнулить переменную в которую будешь писать сумму. ввод массива тоже в двух циклах. s:=0; For i:=1 to N do for j:=1 to N do begin readln(a[i,j]); s:=s+a[i,j] end; writeln(s);