Program dfdf;
uses crt;
var a:array[1..6,1..6] of integer; m,j,n,i:byte;
Begin
clrscr;
m:=6; n:=6;
For j:=1 To m Do
begin
For i:=1 To n Do
begin
If i Mod 2=1 Then A[i, m-j+1]:=(i-1)*m+j
Else A[i, m-j+1]:=i*m-j+1;
end;
writeln;
end;
For i:=1 To n Do
begin
For j:=1 To m Do
begin
write(a[i,j]:7);
end;
writeln;
end;