Task2.7

абонент("аб1", 111).
абонент("аб2", 222).
абонент("аб3", 333).
абонент("аб4", 444).
абонент("аб5", 555).
абонент("аб1", 123).


абоненты():-абонент(Кто, Номер), write("Имя: "), write(Кто), write(" Номер: "), write(Номер), nl, fail.
телефон(Имя):-абонент(Имя, Номер), write(Номер), nl, fail.
имя(Номер):-абонент(Имя, Номер), write(Имя), nl, fail.