дан массив А, состоящий из целых чисел. найти количество и сумму

Cи:
...
int sum = 0, res = 0;
...
for (i = 0; i lt; N; i++)
  if (A[i] % 5 == 0 amp;amp; A[i] % 7 != 0)
    sum += A[i], res++;
printf("Sum = %i; Number = %i\n", sum, res);
...
-------------------------
C++:
...
int sum = 0, res = 0;

for (int i = 0; i lt; N; i++)
  if (A[i] % 5 == 0 amp;amp; A[i] % 7 != 0)
    sum += A[i], res++;

std::cout lt;lt; "Sum = " lt;lt; sum lt;lt; "Numbers = " lt;lt; res lt;lt; std::endl;
...
----------------
PASCAL:
...
var sum, res : integer;
...
sum := 0;
res := 0;

for i := 1 to N begin
  if (A[i] mod 5 = 0) and (A[i] mod 7 lt;gt; 0) begin
    sum := sum + A[i];
    res := res + 1;
  end;
end;
...