Program a8_14;
uses crt;
const m=4; n=7;
      i,j,k,w:integer;
BEGIN
clrscr;
k:=0;
w:=0;
for i:=1 to m do
  for j:=1 to n do
    begin
      k:=k+1;
      if k mod 2=0 then a[i,j]:=0
      else begin w:=w+1; a[i,j]:=w; end;
    end;
  for i:=1 to m do
    begin
      for j:=1 to n do
      write(a[i,j]:3);
      writeln;
    end;
readln;
END.