fn(2).
fn(1).

place(panama).

price(1,34).
price(2,88).

target(2,panama).
target(1,panama).

print_price(Number):-price(Number,Cost),write("Цена: "),write(Cost),nl.
print_target(Number):-target(Number,Place),write("Пункт назначения: "),write(Place),nl.
print_all_tail(Number):-fn(Number), write("Рейс: "), write(Number), nl,
    print_target(Number),print_price(Number), N is Number + 1,
    print_all_tail(N).

print_all:-print_all_tail(1).
pn(Place,Mp):-print_fn_by_place_and_maxprice(Place,Mp).
print_fn_by_place_and_maxprice(Place,MaxPrice):-print_fn_by_place_and_maxprice_tail(1,Place,MaxPrice).
print_fn_by_place_and_maxprice_tail(Number,Place,MaxPrice):-target(Number,Place),price(Number,Price),
    Price<MaxPrice,write("Рейс: "),write(Number),write(" Цена: "),write(Price),nl.
%print_fn_by_place_and_maxprice(Place,MaxPrice):-place(Place),target(Number,Place),price(Number,Price),Price>=MaxPrice,write("Подходящих рейсов нет"),nl.

menu:-!,
    nl,
    write("1-Все данные."),nl,
    write("2-Поиск пункта назначения по номеру рейса."),nl,
    write("3-Поиск рейса по пункту назначения с порогом максимальной цены."),nl,
    write("4-Выход"),nl,
    read(Point), menu_point(Point).
menu_point(1):-
    write("Все рейсы:"),nl, print_all,menu.
menu_point(2):-
    write("Введите номер рейса:"), read(Number),print_target(Number),menu.
menu_point(3):-
    write("Введите пункт назначения:"),read(Place),nl,
    write("Введите максимальную цену:"),read(MaxPrice),nl,
    pn(Place,MaxPrice),menu.
menu_point(4):-!.
menu_point(_Default):-
    nl,write("Введите команду ещё раз."), menu.