Найти сумму всех элементов массива кратных трем

program pr;
var
a:array[1..25] of integer;
i,sum:integer;
begin
randomize;
for i:=1 to 25 do
begin
a[i]:=random(100);  //  диапазон чисел бери какой нужно  
end;
for i:=1 to 25 do
begin
write(a[i]:3);
end;
sum:=0;
for i:=1 to 25 do
if a[i] mod 3 =0 then
begin
sum:=sum+a[i];
end;
writeln;
writeln('Сумма чисел кратных 3= ',sum);
end.

var
  A: array [1..25] of integer;
  s: integer;
 
begin
  randomize;
  for var i := 1 to 25 do
  begin
    A[i] := random(-100, 100);
    write(A[i]:4);
    if A[i] mod 3 = 0 then
      s += A[i];
  end;
  writeln;
  writeln('Сумма элементов кратных трем. S = ', s);
end.

uses Arrays; 
begin
  randomize;
  var A := CreateRandomIntegerArray(25, -100, 100);
  PrintLn(A.Where(x -> x mod 3 = 0));
  Print('A = ', A, NewLine + 'Сумма элементов, кратных 3 = ', A.Where(x -> x mod 3 = 0).Sum());
end.