PROGRAM MarriedPerson(Output);
    TYPE
        String3 = PACKED Array [1..3] OF Char;
        Role = (Shohar, Zan);
        Person = RECORD
            Name, Family: String3;
            CASE FamilyRole:Role OF
                Shohar: (MadarZan, PedarZan: String3);
                Zan: (Age: Integer)
        END;
    VAR
        Ali, Sara: Person;
BEGIN
    Ali.Name := 'Ali';
    Ali.Family := 'Alj';
    Ali.FamilyRole := Shohar;
    Ali.MadarZan := 'Zey';
    Ali.PedarZan := 'Tag';

    WriteLn(Output, 'MadarZan ', Ali.MadarZan)
END.