Определить количество и вычислить сумму элементов одномерного массива N, кратных трем.

var a: array[1..1000] of integer; n, i, amount, sum: integer; begin      read(n);      amount := 0;      sum := 0;      for i := 1 to n do      begin           read(a[i]);           if a[i] mod 3 = 0           then           begin                sum := sum + a[i];                amount := amount + 1;           end;      end;      writeln(amount, ' ', sum); end.