{Автор: Винарский Евгений 112 гр.}
program z_12_23(input,output);

function potomok(a,b:name): boolean;
begin
if ((a=no) and (b=no)) then potomok:=false
else if(potomok(a,papa(b))) then potomok:=true
     else potomok:=potomok(a,mama(b));
end;