MODULE MConst; MODULE M EXPORT C; CONST C = 7; END M; VAR ExitCode : INTEGER; BEGIN ExitCode := M.C END MConst.