дважды герой ЧСа клана Strongs) if (I=Sultan) then beginGet(First_Wife);Get(Second_Wife);Get(Third_Wife);end;END.
++