uses crt;
var
  n, s, k: integer;
  c: real;
  a: array[1..1000]of integer;

begin
  
  writeln('Введите количество чисел');
  readln(n);
  for var i := 1 to n do
    readln(a[i]);
  for var i := 1 to n do
    write(a[i], '  ');
  writeln();
  s := 0;
  k := 0;
  for var i := 1 to n do
  begin
    if((a[i] mod 10 <> 3) and (a[i] mod 10 <> 5)) then
    begin
      write(a[i], '  ');
      s += a[i];
      k := k + 1;
    end;
  end;
  writeln();
  c := s / k;
  writeln('Среднее арифметическое= ', c:0:3);
  
end.