program test(Output);
	type AT = array[0..4] of Integer;
	type MT = array[0..4] of AT;
	var a : AT;
	var m : MT; (* array of array *)
	var aa : array[0..4] of Integer;
	var am : array[0..4, 0..4] of Integer;
begin
	a[3] := 1;
	m[3][3] := 1;
	aa[3] := 1;
	am[3][3] := 1
end.

(* Local Variables: *)
(* tab-width: 4 *)
(* compile-command: "fpc arrays.pas" *)
(* End: *)