(* Teresa Tong [30] F.4AS      April,2002 *)
(* write a program to use a two dimensional array to store
    4 sets of marksix numbers then output the 4 set of numbers
    orderly *)

program Marksix;
uses wincrt;
var table:array[1..4, 1..6] of integer;
      i, j :integer;

begin

  randomize;
  for i:= 1 to 4 do
  for j:= 1 to 6 do
  begin
  table[i,j]:=random(47)+1;
  end;

  writeln('The 4 sets of marksix numbers are:');
  writeln;
  for i:= 1 to 4 do
  begin
  for j:= 1 to 6 do
  write(table[i,j]:3);
  writeln;
  writeln;
  end

end.

========================================================
e.g.


1) The 4 sets of marksix numbers are:
   
       9   8   29   16   11   27
        
     46  20   17   25   11   16
   
     29   46   17   28   8   44

      1   37    5    27    4   24