const n=6; var a:array [1..n,1..6] of integer; i,j,K: integer; begin k:=1; for i:=1 to n do begin IF (i mod(2)=1) then begin for j:=1 to N do begin a[i,j]:=k; k:=k+1; end; end

else begin

  for j:=N downto 1 do begin
  a[i,j]:=k;
    k:=k+1;
end;

end; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); WRITELN;

end;

end.