var
  i, n, k, max, x: longint;

begin
  read(n);
  max := -32767;
  k := 0;
  for i := 1 to n do
  begin
    read(x);
    if abs(x mod 10) = 5 then
    begin
      k := k + 1;
      if x > max then max := x;
    end;
  end;
  write(k, ' ');
  if k <> 0 then write(max);
  writeln;
end.