var A:array[1..34] of Integer;
Pr,i:integer;
S,T:string;
begin
Pr:=1;
  For i:=1 to 34 do
  begin
  A[i]:=Random(0,38);
    If A[i] mod 5=0 then
    Pr:=Pr*A[i];
  Str(A[i],T);
  S:=S+T+' ';
  end;
Writeln(Pr);
Writeln(S);
end.