---

program Task7;

uses Math;

var
  A: array[1..30] of Integer;
  i: Integer;
  k, s: Integer;

begin
  Randomize;
  k := 0;
  s := 0;

  WriteLn('Исходный массив A:');
  for i := 1 to 30 do
  begin
    A[i] := Random(100);
    Write(A[i], ' ');
  end;
  WriteLn;

  for i := 1 to 30 do
    if (A[i] mod 5 = 0) and (A[i] mod 7 <> 0) then
    begin
      k := k + 1;
      s := s + A[i];
    end;

  WriteLn('Количество элементов: ', k);
  WriteLn('Сумма элементов: ', s);
end.