Program zadacha4;

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

I,j: integer;

Begin

Randomize;

For i:=1 to 5 do

  Begin

    For j:=1 to 8 do

      begin

        A[I,j]:=-15+random(15-(-15+1));
        Write(a[I,j]:3);
      End;

Writeln;

  End;
For i:=1 to 5 do
  begin
    for j:=1 to 8 do
      if ((i mod 2) = 0) and ((j mod 2)= 0) and (a[i,j] > 0) and ((a[i,j] mod 3) = 2) then
        begin
          writeln(a[i,j]);
        end;
  end;
End.