Для каждой из матриц Х (8; 8) и У

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