1 2 3 4 5 6 7 8
MODULE subassign ; VAR card : CARDINAL ; month: [1..12] ; BEGIN month := card END subassign.