name=symbol
phone=symbol
home=symbol
predicates
adress(name,phone,home)
printall
goal
printall.
clauses
adress("Г*******","906*******","П*******").
adress("М*******","921*******","О*******").
adress("Ко*******","921*******","Г*******").
adress("Ч*******","960*******","П*******").
adress("Ка******","921*******","А*******").
adress("В*******","906*******","Т*******").
printall:-adress(A,B,_),write(A,"\t",B,"\n"),fail.
мозг потихоньку вытекает из уха... а это только первое задание