PROGRAM T6P6P5P3D1(OUTPUT);
TYPE
   TWO      = (A,B);
   RECONE   = RECORD
               I : INTEGER;
               J : BOOLEAN
              END;
   RECTWO   = RECORD
               C : INTEGER;
               CASE TAGFIELD : TWO OF
                  A : (M : INTEGER);
                  B : (N : BOOLEAN)
              END;
   RECTHREE = RECORD
               C : INTEGER;
               CASE TAGFIELD : TWO OF
                  A : (CASE TAGFEELD : TWO OF
                           A : (O : REAL);
                           B : (P : CHAR));
                  B : (Q : INTEGER)
              END;
VAR
   PTRONE : RECONE;
   PTRTWO : RECTWO;
   PTRTHREE : RECTHREE;
BEGIN
   NEW(PTRONE);
   NEW(PTRTWO,A);
   PTRTWO.TAGFIELD:=A;
   NEW(PTRTHREE,A,B);
   PTRTHREE.TAGFIELD:=A;
   PTRTHREE.TAGFEELD:=A;
   WRITELN(' PASS...6.6.5.3-1')
END.