1 2 3 4 5 6 7 8
MODULE constsubrange ; VAR a, b: [10..20] ; BEGIN a := 10 ; b := 1 ; END constsubrange.