Program zad;
uses crt;
const m=6; n=6;
var a:array[1..n,1..m] of integer; i,j :integer;
Begin
clrscr;
   for j:=1 to m do
       for i:=1 to n do begin
          if i mod 2=1 then
       a[n-i+1,j]:=(i-1)*m+j
      else a[n-i+1,j]:=i*m-j+1; end;
    for i:=1 to n do begin
      for j:=1 to m do begin
      write(a[i,j]:5);end; writeln;end;
End.