Program zadacha2;

Var a:array[1..5,1..7] of integer;

I,j,s1,n,s2: integer;
Begin

Randomize;

s1:=0;
s2:=0;
n:=0;
For i:=1 to 5 do

  Begin

    For j:=1 to 7 do

      begin

      A[I,j]:=5+random(15-(5+1));
      Write(a[I,j]:3);
      if (a[i,j] mod 2) = 0 then
        begin
          n:=n+1;
          s1:= a[i,j] + s1;
        end;

      End;

Writeln;

    End;
s2:= trunc(s1/n);
For i:=1 to 5 do
    For j:=1 to 7 do
      begin
      if a[i,j] > s2 then
        begin
          writeln(a[i,j]);
        end;
      End;
End.