{Винарский 17_2_v}
type
    list=^node;
    node=record
          elem: integer;
          next: list
         end;
    queue=record
            start: list;
            fin: list
          end;
    имя=(Анна,...,Яков);
    дети=packed array [имя,имя] of boolean;
    потомки=file of имя;

procedure relatives(var П: потомки, И: имя);
var
  q: queue;
  i,k: имя;
  begin
    rewrite(П);
    init(q); {Инициализация очереди}
    for i:=Анна to Яков do
      if(d[i,k]) then
        pushQ(q,i);
    while(not(isempty(q))) do
      begin
        write(П,i,' ');
        popQ(q,i);
        for k:=Анна to Яков do
          if(d[i,k]) then
            pushQ(q,k);
      end;
    close(П);
  end;