--programa que verifica el rango estatico del arreglo al momento de compilacion

package errora is
	a:array(12..15) of integer;
begin
	--a(10):=3; --el indice debe ser entre 12 y 15
	a(16):=4; --el indice debe ser entre 12 y 15
end ;