program mn;<br/>
uses crt;<br/>
var a:array[1..100,1..100]of integer;<br/>
    n,s,i,j:integer;<br/>
BEGIN<br/>
ClrScr;<br/>
Write('N:');<br/>
readln(n);<br/>
s:=1;<br/>

for i:=n downto 1 do<br/>
if i mod 2 =0<br/>
then for j:=n downto 1 do<br/>
     begin<br/>
     a[j,i]:=s;<br/>
     inc(s);<br/>
     end<br/>
else for j:=1 to n do<br/>
     begin<br/>
     a[j,i]:=s;<br/>
     inc(s);<br/>
     end;<br/>
for i:=1 to n do<br/>
begin<br/>
for j:=1 to n do<br/>
write(a[i,j],' ');<br/>
writeln;<br/>
end;<br/>
readln;<br/>
END.<br/>