子界类型

program subrange;

{$APPTYPE CONSOLE}

var
  age: 0..100;

begin
  age := 101;{会提示出错}
  Write(age);

  readln;
end.

子界类型用作输入的范围判断很不错,可以减少语句判断的代码量,暂时还不了解子界对内存的占用如何,等学到内存处理了再说.