Определить количество и вычислить сумму элементов одномерного массива 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.