{Винарский Евгений 9_24_б}
for В:= Анна to Юрий do
    if (TP[И,В]=отец) or (TP[И,В]=мать) then
        for С:= Анна to Юрий do
            if TP[В,С]=брат then begin Д:=С;