program dynamic_array;
var
  a : array of array of integer;
    (* a 2 dimensional array *)
  i, j : integer;

begin
  setlength(a, 5, 5);

  for i:=0 to 4 do
    for j:=0 to 4 do
      a[i, j] := i * j;
  setlength(a, 6, 6);
  for i:=0 to 5 do
  begin
    for j:= 0 to 5 do
      write(a[i, j]: 2, ' ');
    writeln;
  end;
end.