var
t1:array[1..25] of integer;
n,i,s,k:integer;
begin
writeln('Введите n ');
readln(n);
writeln('Введите массив');
k:=0;
s:=0;
for i:=1 to n do
begin
read(t1[i]);
if t1[i] mod 3=0 then
begin
k:=k+1;
s:=s+t1[i];
end;
end;
writeln('Кол-во ',k);
writeln('Сумма ',s);
end.