MODULE TConst;
CONST Max = 100;
BEGIN Max := 5
END TConst.