Вывести минимальный и максимальный

model('Вам подходит планшетный компьютер:    Apple iPad 2018   \n Цена:  22000\n\n\n','от 20000 до 30000','Apple','iOS','10 дюймов','4-ядерный','2 ГБ','64 ГБ или более','нет','да','нет','да','более 8 часов').
model('Вам подходит планшетный компьютер:    Apple iPad 2017   \n Цена:  20000\n\n\n','от 20000 до 30000','Apple','iOS','10 дюймов','4-ядерный','2 ГБ','64 ГБ или более','нет','да','нет','да','более 8 часов').
model('Вам подходит планшетный компьютер:    Apple iPad mini   \n Цена:  22000\n\n\n','от 20000 до 30000','Apple','iOS','10 дюймов','2-ядерный','2 ГБ','64 ГБ или более','нет','да','нет','да','более 8 часов').
model('Вам подходит планшетный компьютер:    Samsung Galaxy Tab A   \n Цена:  16000\n\n\n','от 10000 до 20000','Samsung','Android','10 дюймов','4-ядерный','2 ГБ','64 ГБ или более','да','да','нет','нет','более 8 часов').
model('Вам подходит планшетный компьютер:    Panasonic Toughpad   \n Цена:  169000\n\n\n','дороже 30000','Panasonic','Windows','10 дюймов','4-ядерный','4 ГБ','64 ГБ или более','нет','да','да','нет','более 8 часов').
model('Вам подходит планшетный компьютер:    Huawei Mediapad T3   \n Цена:  11000\n\n\n','от 10000 до 20000','Huawei','Android','8 дюймов','4-ядерный','2 ГБ','16 ГБ','да','да','нет','нет','от 5 до 8 часов').
model('Вам подходит планшетный компьютер:    Lenovo Tab 4   \n Цена:  12000\n\n\n','от 10000 до 20000','Lenovo','Android','10 дюймов','4-ядерный','2 ГБ','16 ГБ','да','да','нет','нет','от 5 до 8 часов').
model('Вам подходит планшетный компьютер:    Digma Plane   \n Цена:  8000\n\n\n','до 10000','Digma','Android','10 дюймов','4-ядерный','2 ГБ','32 ГБ','да','да','нет','нет','от 5 до 8 часов').
model('Вам подходит планшетный компьютер:    Lenovo Miix   \n Цена:  15000\n\n\n','от 10000 до 20000','Lenovo','Windows','10 дюймов','4-ядерный','4 ГБ','32 ГБ','да','да','нет','нет','от 5 до 8 часов').
model('Вам подходит планшетный компьютер:    Asus Transformer   \n Цена:  23000\n\n\n','от 20000 до 30000','Asus','Windows','10 дюймов','4-ядерный','4 ГБ','32 ГБ','да','да','нет','нет','от 5 до 8 часов').
model('Вам подходит планшетный компьютер:    Prestigio Wize   \n Цена:  5500\n\n\n','до 10000','Prestigio','Android','10 дюймов','4-ядерный','4 ГБ','16 ГБ','да','да','нет','нет','от 5 до 8 часов').
 
run:-
    new(Dialog, dialog('Ваш помощник при подборе планшетного компьютера')),
    send_list(Dialog, append,
    [
     new(N1, menu(цена, cycle)),
     new(N2, menu(фирма_производитель, cycle)),
     new(N3, menu(операционная_система, cycle)),
     new(N4, menu(размер_дисплея, cycle)),
     new(N5, menu(тип_процессора, cycle)),
     new(N6, menu(оперативная_память, cycle)),
     new(N7, menu(встроенная_память, cycle)),
     new(N8, menu(слот_для_карты_памяти, cycle)),
     new(N9, menu(поддержка_4G_или_3G, cycle)),
     new(N10, menu(влагозащищенный_корпус, cycle)),
     new(N11, menu(сканер_отпечатка_пальца, cycle)),
     new(N12, menu(время_автономной_работы, cycle)),
    new(MyQuest, list_browser),
 
    button(выход, message(Dialog, destroy)),
     button(поиск, and(message(@prolog,
    assert_employee,MyQuest,
     N1?selection,
     N2?selection,
     N3?selection,
     N4?selection,
     N5?selection,
     N6?selection,
     N7?selection,
     N8?selection,
     N9?selection,
     N10?selection,
     N11?selection,
     N12?selection),
 
     message(MyQuest, destroy)))
   ]),
    send(MyQuest,alignment,center),
    send(MyQuest,size,size(100,10)),
    send(Dialog,open(point(50,300))),
 
    send_list(N1, append, ['_','до 10000','от 10000 до 20000','от 20000 до 30000','дороже 30000']),
    send_list(N2, append, ['_','Apple','Asus','Samsung','Panasonic','Huawei','Digma','Lenovo','Prestigio']),
    send_list(N3, append, ['_','Android','iOS','Windows']),
    send_list(N4, append, ['_','7 дюймов','8 дюймов','10 дюймов']),
    send_list(N5, append, ['_','2-ядерный','4-ядерный']),
    send_list(N6, append, ['_','1 ГБ','2 ГБ','4 ГБ']),
    send_list(N7, append, ['_','16 ГБ','32 ГБ','64 ГБ или более']),
    send_list(N8, append, ['_','да','нет']),
    send_list(N9, append, ['_','да','нет']),
    send_list(N10, append, ['_','да','нет']),
    send_list(N11, append, ['_','да','нет']),
    send_list(N12, append, ['_','до 5 часов','от 5 до 8 часов','более 8 часов']).
    assert_employee(FrmList,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12):-
    send(FrmList,clear),
 
    model(X,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12),
    send_list(FrmList,append,X),
    fail.