---

roditel('Гузель', 'Ильдар').
roditel('Марат', 'Ильдар').
roditel('Ильдар', 'Илья').
roditel('Оксана', 'Илья').
predok(A, B) :- roditel(A, B).
predok(A, B) :- roditel(A, C), predok(C, B).
writeln('Предки Ильи:'),
predok(A, 'Илья'),
writeln(A),
fail;
true.