No pointers.

Range limited types, e.g.

     Type Day = (0..7);

     Days = (monday,tuesday,wednesday,thursday,friday,  
             saturday,sunday);