program hhh;<br/>
               uses crt;<br/>
const n=6; m=6;<br/>
var<br/>
    a:array[1..n,1..m] of integer;<br/>

    i,k,b,x,max,t,j,jf:integer;<br/>
 BEGIN<br/>
 clrscr;<br/>

 for j:=1 to m do  a[1,j]:=j;<br/>
 jf:=1;<br/>
  for i:=2 to n do  begin<br/>
  jf:=jf mod m +1;<br/>
  for j:=1 to m do begin<br/>
  a[i,j]:=a[1,jf];<br/>
  jf:=jf mod m+1<br/>
  end;<br/>
  end;<br/>
 for i:=1 to n do  begin<br/>
  for j:=1 to m do<br/>
  write(a[i,j]:3);<br/>
  writeln;<br/>
   end;<br/>

   end.<br/>