Дан фрагмент программы на языке программирования Pascal
sum:=0
for i:=1 to n do
if j: (i<=j) and (i+j<=n+1) then
sim:=sum+x[i,J]
writelm(sum)

Подсчёт суммы элементов выше и на главной диагонали, выше и на побочной диагонали