Найти сумму чисел массива, которые не кратны 3

program vv;
uses wincrt;
var
S,i,j,k,n:integer;
a:array[1..5,1..5,1..5] of integer;
begin
write('Razmernost n= ');
readln(N);
for i:=1 to N do begin
for j:=1 to N do begin
for k:=1 to N do begin
write('a[',i,';',j,';',k,']: ');
readln(a[i,j,k]);
end;
end;
end;
S:=1;
for i:=1 to N do begin
for j:=1 to N do begin
for k:=1 to N do begin
if a[i,j,k] mod 3 <> 0 then begin
S:=S+a[i,j,k];
end;
end;
end;

end;

S:=0;

End;
End.

program vv;
var
S,i,j,k,n:integer;
a:array[1..5,1..5,1..5] of integer;
begin
write('Razmernost n= ');
readln(N);
for i:=1 to N do 
for j:=1 to N do 
for k:=1 to N do begin
write('a[',i,';',j,';',k,']: ');
readln(a[i,j,k]);
end;
 
S:=0;
for i:=1 to N do 
for j:=1 to N do 
for k:=1 to N do 
if a[i,j,k] mod 3 <> 0 then 
S:=S+a[i,j,k];
 
end.

var
 arr: array[1..100, 1..100, 1..100] of integer;
 i, k, j, n: integer;
 summ: longint;
begin
 summ:=0;
 readln(n);
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      for k:=1 to n do
       begin
        arr[i, j, k]:=random(100)+1;
        write(arr[i, j, k]:4);
       end;
      writeln;
     end;
    writeln;
   end;
  for i:=1 to n do
   for j:=1 to n do
    for k:=1 to n do
     if arr[i, j, k] mod 3<>0 then summ:=summ+arr[i, j, k];
 writeln(summ);
end.