Task2.5

%5
страна("Россия", "Москва", 42000000, "Европа").
страна("Армения", "Ереван", 4000000, "Азия").
страна("Грузия", "Тбилиси", 5500000, "Европа").
страна("Стр1", "Стол1", 1000000, "Азия").
страна("Стр2", "Стол2", 9000000, "Европа").
страна("Стр3", "Стол2", 4500000, "Азия").

страны():-страна(Название, Столица, Население, Часть), write(Название), write(" (столица: "), write(Столица),
    write(" ), с населеним в "), write(Население), write(" человек, находится в "), write(Часть), nl, fail.
страны(НаселениеНужное):-страна(Название, Столица, Население, Часть), Население>НаселениеНужное, write(Название), write(" (столица: "), write(Столица),
    write(" ), с населеним в "), write(Население), write(" человек, находится в "), write(Часть), nl, fail.
страны(НаселениеНужное, ЧастьНужная):-страна(Название, Столица, Население, Часть), Население<НаселениеНужное, Часть==ЧастьНужная,
    write(Название), write(" (столица: "), write(Столица), write(" ), с населеним в "), write(Население), write(" человек, находится в "), write(Часть), nl, fail.

% 1
% страны
% 2
% страны(5000000)
%
% 3
% страны(15000000, "Европа")