1 2 3 4
8 7 6 5
9 10 11 12
16 15 14 13

var
   a:array[1..100,1..100] of integer;
   i,j,n,m:integer;
begin
 read(n,m); {количество строк и столбцов}
 for i:=1 to n do
  for j:=1 to m do
   if (i mod 2=1) then a[i,j]:=(i-1)*m+j else a[i,j]:=i*m-j+1; {заполнение}
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:4);  {вывод на экран}
   writeln;
  end;
 readln
end.