Program HelloWorld;
var proizvod, sum : integer;
var M : integer;
var avg : real;
var broj : integer;
var i : integer;
var brojac : integer;
begin
  writeln('Unesite broj brojeva: ');
  readln(M);
  sum := 0;
  proizvod := 1;
  brojac := 0;

  for i:= 1 to M do
  begin
    write('Unesite zeljeni broj: '); readln(broj);
    if(broj mod 3 = 0) then
    begin
      sum := sum + broj;
      brojac := brojac + 1;
    end;
    proizvod := proizvod * broj;
  end;

  avg := sum / brojac;
  writeln(avg);
  writeln(proizvod);
end.