program ed;</br>
uses crt;</br>
var a:array[1..20,1..20] of integer;</br>
i,j,n,m:integer;</br>
Begin
writeln('vvedi razmernost');</br>
readln(n,m);</br>
for j:=1 to m do
for i:=1 to n do
 if i mod 2=1 then a[n-i+1,m-j+1]:=(i-1)*m+j
 else a[n-i+1,m-j+1]:=i*m-j+1;</br>
writeln;</br>
for j:=1 to m do begin
for i:=1 to n do
write(a[i,j]:3);</br> writeln;</br>  end;</br> writeln;</br>
readln;</br>
End.