Для каждой из матриц Х(8;8) и У(10;10) вычислить сумму элементов,расположенных на главной диагонали и выше её.

var i,j,s:integer; x:array[1..8,1..8] of integer; y:array[1..10,1..10] of integer; begin s:=0; for i:=1 to 8 do for j:=1 to 8 do begin readln(x[i,j]); if i<=j then s:=s+x[i,j]; end; writeln("Сумма для X=", s); s:=0; for i:=1 to 10 do for j:=1 to 10 do begin readln(y[i,j]); if i<=j then s:=s+y[i,j]; end; writeln("Сумма для Y=", s); end.