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.