uses crt;
  const N=6;
  var i,k,s:integer;
      a:array [1..N] of integer;
      sr:real;
      
begin

  for i:=1 to N do
    begin
      a[i]:=5+random(6);
      write (a[i],' ');
    end;
  writeln;

  for i:=1 to N do
    begin
      if a[i] mod 2 = 0 then
         begin s:=s+a[i]; k:=k+1; end;
    end;

  sr:=s/k;

  write ('ср. арифм. четных = ',sr:0:2)
end.