Выберите программу, которая находит сумму элементов массива, кратных 3:

• program CalculateSum;
  var
  A: array
  \[1\.\.30\]
  of Integer;
  s, i: Integer;
  begin
  for i := 1 to 30 do
  begin
  write\('Введите число: '\);
  readln\(A⟨1⟩\);
  end;
  s := 0;
  for i := 1 to 30 do
  begin
  if A
  \[i\]
  mod 3 = 0 then
  s := s + A
  \[i\]
  ;
  end;
  writeln\(s\);
  end.
• program CalculateSum;
  var
  A: array
  \[1\.\.30\]
  of Integer;
  s, i: Integer;
  begin
  for i := 1 to 30 do
  begin
  write\('Введите число: '\);
  readln\(A⟨1⟩\);
  end;
  s := 0;
  for i := 1 to 30 do
  begin
  if i mod 3 = 0 then
  s := s + i;
  end;
  writeln\(s\);
  end.
• program CalculateSum;
  var A: array
  \[1\.\.30\]
  of Integer;
  s, i: Integer;
  res: Real;
  begin
  for i := 1 to 30 do
  begin
  write\('Введите число: '\);
  readln\(A⟨1⟩\);
  end;
  s := 0;
  for i := 1 to 30 do
  begin
  s := s + A
  \[i\]
  ;
  end;
  res := s / 30;
  writeln\(res\);
  end.