var
a:array [1..30,1..8] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 30 do
for j:=1 to 8 do
a[i,j]:=random (2);
 for i:=1 to 30 do
begin
  for j:=1 to 8 do
  write(a[i,j]:4);
  writeln;
end;
end.