program Zadacha3;
{$APPTYPE CONSOLE}
var i,j,n,m:integer;a:array[1..20,1..30] of integer;
begin
writeln('Vvedit n i m');
readln(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
if i mod 2=0 then begin
a[i,j]:=(i-1)*m+(n-j)+1;
write(a[i,j]);end else begin
a[i,j]:=(i-1)*m+j;
write(a[i,j]);end;
end;writeln;end;
readln;
end.