Массив: Определить сумму тех элементов массива, сумма индексов которых кратна трем.

var a:array[1..6,1..6] of integer;i,j,k,sum:integer;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(10);
write (a[i,j]:4);
end;
writeln;
end;
sum:=0;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
if i+j mod 3=0 then sum:=sum+a[i,j];
if i+j mod 3=2 then sum:=sum+a[i,j];
if i+j mod 3=1 then sum:=sum+a[i,j];
end;
end;
writeln(sum);
end.

program Project1;
const
  maxelem = 6;
var
  a: array[1..maxelem,1..maxelem] of integer;
  i,j,sum: integer;
begin
  Randomize;
  writeln('Исходный массив:');
  for i:= 1 to maxelem do
    begin
      for j:= 1 to maxelem do
        begin
          a[i,j]:= random(10);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  sum:= 0;
  for i:= 1 to maxelem do
    for j:= 1 to maxelem do
      if (i+j) mod 3 = 0 then
        sum:= sum + a[i,j];
  writeln('Сумма элементов: ',sum);
  readln;
end.

const n=6;
var a:array[1..n,1..n]of integer;
sum:integer;
 
begin
  for var i:=1 to n do begin
    for var j:=1 to n do begin
      a[i,j]:=random(66)+25;
      write(a[i,j]:3); end;
    writeln; end;
  writeln;
  
  for var i:=1 to n do 
    for var j:=1 to n do 
      if (i mod 3 = 0) and (j mod 3 = 0) then
        sum:=sum+a[i,j];
  writeln('Сумма элементов, индексы которых кратны 3:',sum);
  
end.