program r8_13;
uses crt;
const n=5;m=4;
var a:array[1..n,1..m] of integer;
      x:array[1..m] of integer;
      s:real;
      k,i,j,g,min:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do begin
 for j:=1 to m do begin
  if i mod 2=1
    then A[i,j]:=(i-1)*m+j
  else A[i,j]:=i*m-j+1;
 write(a[i,j]:4,' ');
 end;
writeln;
end;
END.