pop(usa,203). pop(india,548). pop(china,800). pop(brazil,108). area(usa,3). area(india,1). area(china,4). area(brazil,3). density(X):- pop(X,A),area(X,B),D is A/B, write('The population density is: '),write(D),nl.