var a: array[1..7,1..9] of integer;i,j:byte;
begin
   for i:=1 to 7 do begin
    for j:=1 to 9 do begin
      a[i,j]:=random(-100,100);
      if Not(a[i,j] mod 2 = 0) then begin a[i,j]:=0; end;
      end;
    end;
   write(a);
end.