BEGIN
if (I=Sultan) then
begin
Get(First_Wife);
Get(Second_Wife);
Get(Third_Wife);
end;
END.