pascal programming using ordinal datatypes