PROGRAM A;
  UNIT B:PROCEDURE;
  END B;

CONST I = A QUA;
BEGIN
END A;