eml / hfvjhm

quest(1,'Элемент? Вода - 1, Огонь - 2, Воздух - 3, Земля - 4').
quest(2,'Элемент? Трава - 1, Курица - 2, Лада Приора - 3, Бомж - 4').

answer(1,['Водоросли','Пепел','Субкультура','Газон']).
answer(2,['Уточка','Кура-гриль','Орёл','Кура-зомби']).
answer(3,['Ржавчина','Феррари','Черная Молния','КамАЗ']).
answer(4,['Чистый бомж','Супергерой','Вонь','Очень грязный бомж']).

find(_,N,E,CN):- CN>N,E = 'not found',!.
find(L,N,E,CN):- L = [H|_], CN = N, E = H,!.
find(L,N,E,CN):- L = [_|T], CN < N, CN2 is CN+1,find(T,N,E,CN2),!.
find(L,N,E,_):- length(L,SL), N > SL, E = 'not found',!.

play:- quest(1,Text1),write(Text1),nl,
read(X1),nl,
quest(2,Text2),write(Text2),nl,read(X2),
answer(X2,L),
find(L,X1,E,1),
write(E).